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PREFACE 


Greetings!  APL:  An  Introduction  provides  a  set  of  self-teaching 
materials  which  provide  an  informal  introduction  to  APL*  They  are  called 
“U-Programs”  based  on  the  belief  that  you  will  learn  APL  best  if  you  pro¬ 
gram  it  yourself. 

The  APL  U-Programs  are  designed  for  students  at  secondary  and 
college  levels  who  have  a  penchant  for  experimentation.  Specifically,  the 
materials  may  be  used  in  the  following  ways: 

1.  Problem-Solving  Exercises:  Begin  by  observing  examples  of  how 

APL  functions  and  commands  are  used.  Some  examples  show  the  com¬ 
puter’s  results;  others  (marked  with  an  arrow  - ►  in  the  margin)  have 

the  computer’s  display  omitted  and  are  exercises  for  you  to  do.  Answers 
are  provided  in  the  Appendix.  (Note  that  this  does  not  require  access  to  a 
computer;  if  one  is  available,  it  can  be  used  to  enter  problems,  observe 
results,  and  check  answers.) 

2.  Experimentation  and  Exploration:  Using  the  problems  (from  1.) 
as  samples,  explore  the  nature  of  APL  functions  and  commands  by  con¬ 
ducting  “experiments”  on  the  computer.  For  instance,  an  experiment  might 
involve  systematically  varying  different  values  with  the  same  function,  or 
trying  different  functions  or  combinations  of  functions. 

3.  Formalization  and  Generalization:  Using  the  results  of  experi¬ 
mentation  (from  2.)  as  an  intuitive  basis,  then  formally  express — either  in 
words  (to  a  human  instructor)  or  in  a  program  definition  (to  the  computer) 
— general  rules  for  describing  the  behavior  of  an  APL  function.  Such 
“simulations”  and  other  programs  may  be  written  similarly  to  apply  APL 
for  your  own  purposes. 

In  all  of  these  ways,  the  user  of  APL  U-Programs  is  encouraged  to 
use  a  “heuristic”  approach  to  learning  APL.  That  is,  by  examining  patterns 
in  the  examples  shown  and  from  results  of  experiments  conducted,  the 
student  may  make  reasonable  conjectures  about  the  nature  of  the  APL 
language.  These  conjectures  may  be  confirmed  by  subsequent  experience 
or  by  an  instructor  or  a  manual. 


*APL  is  A  Programming  Language,  which  was  developed  by  Kenneth  E.  Iverson  of  IBM 
Corporation.  Originally  conceived  as  a  unifying  mathematical  notation  in  the  late  1950s  and 
early  1930s,  APL  has  since  been  implemented  on  a  variety  of  computing  systems  and  has 
been  used  successfully  in  business,  scientific  research,  and  education.  For  a  list  of  APL 
publications,  write:  APL  Press,  Box  378,  Pleasantville,  N.Y.  10570. 


The  APL  U-Programs  are  organized  into  nine  units — each  with  a 
title  page/tabie  of  contents  and  review.  The  learning  progression  is  de¬ 
signed  to  be  sequential  but  may  be  altered  by  skipping  forward  or  back¬ 
ward  at  the  student’s  discretion.  Annotations  in  the  right-hand  margin  are 
intended  as  supplementary  explanation  and  may  be  overlooked  by  the  in- 
dependent-minded  student. 

Beginning  with  U-Program  1,  APL  tools  for  problem-solving  are  pre¬ 
sented,  and  soon  thereafter  sample  programs  are  demonstrated.  Each  of 
the  U-Programs  assumes  a  clear  workspace,  i.e.,  you  enter  expressions  on 
an  empty  slate.  APL  expressions  are  indented  6  spaces,  and  the  computer’s 
response  is  shown  at  the  left  margin.  Some  expressions  on  the  page  are 
simply  examples  to  be  observed.  Other  expressions  are  exercises  for  the 
student  to  do  (here  the  computer’s  response  has  been  omitted  and  an  arrow 
- ►  shown  instead).  Additionally,  some  expressions  are  marked  “chal¬ 
lenge”  for  those  who  wish  to  stretch  their  understanding. 

At  any  rate,  enjoy  APL. 

Howard  A.  Peelle 

Amherst,  Mass. 
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ABOUT  APL  SYSTEMS 


The  version  of  APL  used  in  this  book  cotriesponds  closely  to  the 
standard  IBM  program  product,  as  implemented  on  the  IBM  360  and  370 
series  time-sharing  systems  and  the  IBM  5100  desk-top  computer.  Other 
versions  of  APL,  such  as  APLUM  (APL  at  the  University  of  Massachusetts) 
implemented  on  a  CDC  CYBER  74,  differ  slightly  and  would  affect  the  fol¬ 
lowing  topics  in  this  book: 

page 


Significant  Digits  3 
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E  Notation  59 

Deleting  Lines  in  a  Program  61 

Trace  Command  64 


Note  also  that  the  user  is  expected  to  arrange  access  to  an  APL 
computing  system  and,  therefore,  that  this  book  does  not  describe  equip¬ 
ment,  sign-on  procedures,  or  any  aspects  pertaining  to  interaction  with  a 
particular  machine.  Rather,  it  assumes  that  one  is  ready  to  study  the  APL 
language,  per  se. 
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SET 

SET  X-  ,  11 

SE:-r 

ii> 

2  3  ^  7  ^  11 

SET 

>  7  11 

Set 

i6 

lAoto  of  ^uMb-ers 

{called  OL  'WecA-or") 


SET  +  1 
3  4  6  8  12 

SET  -  1 


0li\4  iuua  be.  ‘hrecJred  ck.5  o- 
si^vc^le  eh-H-fvj. 

(Tjt^  ey.OLrv\(?le/ 


1  16  oidledi  4o  fioudri  clerwerv-h  of  6£'T 

a-i),  6-1),  6-1),  6-1) 


2  ‘Km€5  cf  SET 


COMMAND  EXECUTION 


SET  -t-  2  3  5  7  11 


SIX  -<-  6  6  6  6  6 


SET  X  SIX 


12  18  30  42  66 


SET  -h 


A^\  -Hoo 

fel^rweinrf'-  ^l€ivi€Klr  mi^l4ip/icalijn 

^1+6),  (^3+4),  ^5+(t)  ,  0+4),(\l+4) 


SET  +  6 


8  9  11  13  17 


Avv  u)a-tj|  erf  odcliK^  C) 


SET  ,  51-? 


2357  11  66666 


SET  ,  6 


^  cUpJl^:s  v'o.luje^ 

-hxjeHjer* 
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7 


2  3  5  7  11 
4  0  15  3 


V  i-  W 

6  3  6  12  14 

V  -  W 
"23428 


PARALLEL  PROCESSING 

V  W  are 

[hio^ce^  -iUdr  eacW  vec^hr  Iaos  S  values) 

fclerwent  -  b^j  -  el^^ert  od^di-flon 
(This  I's  ’’pamllef  jprocessfYUj") 

E le»w.ei\+-  bij  "  €le rKe^^ir  scdo+rodioi^ 

Mui-Kplij  4Uft.  -ftrslr  £\£rvy.en'V\n  V  -\1A^€«>  ^ke.  W 


4key\ 

VI 

secc>r\<i 

w 

<v  ^eon^ 

u 

«v 

4iura 

U 

4UJcr^ 

v\ 

4V£-n 

vv 

-?crur4Vv 

vv 

»'  'fovtr4W 

II 

-^y\ 

IV 

-^-l^v 

IV 

II 

Ele»w€r\+  -  b (j  ^ l-dv-eiTt  nA>ul  Vi pi  j'ca.4n (m 


V  ,  w 


eJU.oui^  vclIw.€S  4t>cjeH-^ 


{/  ,  V 


eUoJln  v^flultces  4t>a£"H^'er’ 

(_  W  -(TolbuieA  lz>L^  Y) 
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CATENATION  , 

ft  IS  the.  'cjifer\af)cm''  functf'cm .  y<ru.  have  aJrea^  seen  ti' 

UteeL  lATiih  KK/yyiherz  ( po^e  d 

“1U£-  (2,0.4 eiAja:K<yv\  ■^t^»^c4^on  ca.K\  be  uibed  u3'i4K  Ufero.!  ci«4<v  4c)o: 
p  -e  T)  iHeral  ^ 

D 


D  ,  D 


D  ,  D  ,  D  ^  D 


cUox^^s  '■W^  va,lu.€.  of  1)  -kjo^eVker 


E  4-  ’A' 

5  ’A^A’ 

J  -H  '00» 

G  •*■  *  A  * 

A?  f-  *0* ' 


M  a55i(jr»  tvveA^'S 


D  ,  E  ,  S  ,  1  t  G  ,  N 

* A A* AOO AO* 


TW*  16  a-  \'i+eral  vec4or 


D,E,S,  I,  G^N^S 


gJaoIa  4U£.  6'yrv^bols 
-4o<:^€4ker  4i^^  shouin) 
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9 


E  ■<-  'HINGT' 
G  -f-  ^WAS' 

0  ■<-  'ON' 

G  ,  E  ,  0 
WASHINGTON 


le4Ver-5  \^\  najm^S 
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RELATIONAL  FUNCTIONS  =<<>>;«= 

Tine  Ec^tuxls  Fui<ich*(70 

T)c>€5  5  5  7 

]_  lY^mv^s  "  (Vru-e-) 

O  ''  no'*  ^-fixlsej) 


fvic>'V  4ru^ 


Jio 


=  (joi'Hv  cl  vec^v^ 

5  \s>  ecYvv.pcLrG<A  io'i4^  coucU 

C-WrKei^  of  4ke.  Veckjir 

Is  loKere 

Os  re'SuW  evercjuiLerfl-  e.\s€- 
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3  <  5 


1 


8  7  6  5  4  <  5 
0  0  0  0  1 

8  7  6  5  4  ^5 
0  0  0  1  1 


l5  5  'VWm  5  ? 

(^-Vv'w.e') 

% 

Is  2  l-ess  4Wtt  5  ? 

■S' 

4 


O  ^-(o-Ue) 
CC^aX^e) 
^  C'fo-he'i 

ICW) 


L€^4S~TUa4A  or*  ^(^ucl\ 


^  ^  ^  ^  ^  TKc  GrcocV©r-'TWMrv  T"(xkc-Kov^ 

1110  0 


®  ^  ®  ^  ^  ^  ^  ^rcoiiVer-^tlvaA  or  ^»ux.l  ^ancVior\ 

11110 

I^-^154~2  509 

I'  <  5  .  ^/^  I 

Anijcoer  1  i-f  -hruce. 

ourvcl  0  I'f  -Paise- 

V  <  5 


V  >  5 


V  ^  5 


=  Tke  Wc4-  ^ua,U  F^a^cIl■<.n 

0  110  11 
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8  s'  9 


8*8 


4*4 


S 


is  hcjf  ^ 


g  2  16  -fo-lse. 


4*7 


M'  *  'S* 


•C’  *  'C 


•□•  *  »□' 


T'  *  'L' 


•F*  *  MBFi4Bi4' 


•B’  =  *ABBABA^ 


/slorf-  a>Vii  ^^itols 

be  tc5>€dl  toi'+lA.  lif€.rais  -ho. 


Gay\ 
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8  r  5 


5  r  8 


MAXIMUM,  MINIMUM,  AND  RESIDUE  FUNCTIONS  r  L  I 

A  Mio  stjmbol  r 

■fer  4t>  ©xpen/w-emr^  ui'i'Hx-. 

4too  rv.u.mber's^  cvxe  fifiLcU  ‘bvd€  . 

Tru^  iVervA  on  oppcsi-^e  (armmaffid) 


6  7  8  9  r  8 


8  8  8  9 


Tro^  $ev£roL.\  expcjnrw-ervH  ^  cnc-e- 
(^u$>i»Ac:^  cc  vccd&'r) 


10  r  8 


11 


11  r  8 


12  r  8 


8  r  12 


P  2  4  6  4  2 
C  3  2  8  5  1 

^  ^  ^  r  4k€  lajre^er  of  al\ 

^  ^  Ccrrre5^rvd\  £\e(K^ds 

f  v6  -Maj£.  ^^anc-fion 
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tx-pen  rf\€ir\-h>  u3\4i\  L 


56789  10  L8 
5  6  7  8  8  8 


4  L  8 


8  L  10  11  3  13 
8  8  3  8 


12  L  8 


8  L  12 


P  2  4  6  4  2 


G  3  2  8  5  1 

P  L  Q 

does  L  do  ? 

Q  L  P 

oicrtuld  ojCT/w  cx3lI\ 

Q  r  P 

•IVo 

does  L  4o  [  ^ 

COMMAND  EXECUTION  15 


CV\aUevvgje; 


3  I  8 


'H'C.re's  cUallevv^e  ^ 
t^v^wre-  occt  Uio  j  uxnrlcs. 


3101234567 

01201201 

3  I  9  10  11 

4  I  4  5  6  7  8  9  10  11  12 


5  I  5  10  15  20  40  5 

0  0  0  0  0  0 

4  I  "3  “2  "l  0  1  2  3 
1  2  3  0  1  2  3 


5|  6  4  20246 


76543211  14 

0  2  4  2  2  0  0 
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REVIEW 


In  APL,  there  are  two  types  of  data  which  can  be  represented:  literal 
data,  and  numerical  data.  Literal  data  are  represented  with  enclosing  quote 
marks;  numbers  are  written  in  the  usual  way,  with  decimal  points  and  nega¬ 
tive  symbols  where  appropriate. 

A  variety  of  functions  exists  in  the  APL  language,  perhaps  the  most 
fundamental  of  which  are  the  arithmetic  functions  and  catenation.  In  addi¬ 
tion  to  these  and  the  relational  functions  (a  family  of  functions  which  com¬ 
pare  data  and  result  only  in  Os  or  1s),  the  maximum,  minimum,  and  residue 
functions,  there  are  many  more  to  be  explored! 

All  expressions  in  APL  are  composed  of  data  and/or  functions 
(usually  both  together)  and  can  be  executed  immediately  by  the  computer. 
This  is  called  the  “command  execution”  mode. 

Names  may  be  used — at  your  discretion — to  store  data  in  the  com¬ 
puter.  The  assignment  command  is  used  whenever  a  name  is  created  or 
whenever  data  stored  in  a  name  are  changed.  One  particularly  useful  appli¬ 
cation  of  this  is  the  use  of  a  counter  to  keep  track  of  a  value  which  is  in¬ 
creased  at  certain  times. 

Vectors  are  linear  collections  of  data  and  may  be  either  literal  or 
numerical.  Through  the  use  of  vectors,  a  single  function  may  be  applied  to 
many  elements  simultaneously.  This  “parallel  processing”  is  convenient 
and  often  useful  for  experimentation. 

Error  reports  occur  whenever  you  have  asked  the  computer  to 
execute  some  expression  it  “doesn’t  understand.”  At  that  point,  you  may 
simply  retype  your  expression  or  enter  a  new  expression.  In  any  event  you 
are  not  penalized.  You  may  continue  as  if  nothing  had  happened. 

To  test  your  understanding  of  this  first  U-Program,  try  the  problems 
on  the  next  page  and  check  your  answers  on  the  computer. 
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PROBLEMS 


T  3.2  6 


5  4  2 


T  +  S' 


T  +  S 


T  -  S 


T  *  S 


T  i  S 


T  ,  5 


T  -  S 


T  <  S 


T  >  S 


T  <.  S 


T  ^  S 


T  *  S 


T  r  S 


T  L  S 


T  I  S 
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U-Program  2 


PROGRAM  DEFINITION 
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DEFINING  A  PROGRAM 


This  IS  CL  program 
■bo  co''rY\pvJite  the 
area  a  Soaare. 


Cl] 

[2] 

[3] 


7AREA 

'THE  AREA  IS' 
S  ^  S 


A  V  \l>  'U?  ba:^\A 

defiif\\-H6i^  ar\d  15  lowed  \o\j  a 
i^amC- ,  CflAie)  pr-ocjram  it)  ^arwed  AR^eA  -') 

EacU  e^pn^'ijioA  b  c/N-bered  c»rN 
success  We  l\irve5  cb  ^royam^ 

Li],  e+c-. 

A  secord  del  V  c^b^es  9rc><jrajrw  debimbion . 


EXECUTING  A  PROGRAM 


AREA  ^ 
THE  AREA  IS 
36 


S  *■  7 

AREA 


"1^  Gxecude  proqro/K^  bvjpe  \-h5  r\£3Lty\e-  • 


nfUen  feocK  I'T^e  vt)  ^r^rmed  b^4bv€.  C6>wpaVer. 

(^Klo+e  dWd  4iu.5  program  fei^ulred  av/alu-e  4orS.^ 


Pro 


ycuY\  PrteA  Gav\  be  ex.€aTecl  ajUn^ 
(perUap  bor  ow  d»tferer\t  Vaiu^e  bbrS. 


THE  AREA  IS 


49 


5-^9 

AREA 


F^ecube. 


pro^' 


ram 


AR.CA  bor  S  ^ 


£'-<-  3  4  5  8 

AREA  IS 
9  16  25  64 


lb  S  W  ast>K^ned  se\r€ral  rali^es^ 

produces  resalH  bor  aU  Valu.eS 

S\rt\Wtarvec5Usl4| . 
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EDITING  A  PROGRAM 


VAREAil']  'THE  AREAS  ARE'  V 


V  AREA 

[1]  'THE  AREAS  ARE' 

[2]  5x5 

V 


Ccrvu»vLCu\jel 


de^nr\\H(jY\ 


U^e  Iaa-s  been  dAaiv£j0d 


5  -t-  1  2  3  4  5 
455/1 

45545  ARE 
1  4  9  16  25 


feys^Cu.-U 


Ai^A  -for  values  of  S 


5  X-  3  4  5  8 

area  \/q^^  fexecLcVe  im2>vm 
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(\di'vK<?vva\ 


r\vcx.v^  be.  4ep>nG4:  too, 


'For  fiXKXrupl^^  If^re.  i6 

(^ro(jrajfV\j  i\aw^ed  fi)A6EfefVU- 

VBASEBALL 

Cl]  'THIS  PROGRAM  COMPUTES  BATTIHG  AVERAGE.' 

[2]  H  i  AB 

[3]  7 


**-  61 

AB  X-  200 
BASEBALL 


Nlo^  ^  ouv^  ^  Au<st 

b€  OLSbiarX'ed  -Plrst 


rfflS"  PROGRAM  COMPUTES  BATTING  AVERAGE. 


0.305 


H  ^  6^\6EBArLL  -for  -fU-C^be 

AB  200  Voulu.es  of  H  A-^ 


22 


PROGRAM  DEFINITION 


^TRIANGLE 
Cl]  A  B  H 

[2]  A  ^  ^  A 

[3]  V 


lUis  16  cu^4W^r  profjnatm^  Na-rwed  T^i/Vk)GL£^ 
(OidcL  cciuputf^S  dKe  of  c\  fTtcuvAl-c-^ 

^WeiA  'ifs  ba.6€  (6)  oM  Kel^hir  (-H), 

TKc  u>\ll  b£  scored 'i^  /V. 


A 

VALUE  ERROR 
A 

A 


‘TKC'V'e^  16  rv:>  '/’olIia-S-  ■fo'f"  A 
(jLyvV\l  -VU€.  proi^rcxm  e^ecui^- 


B  *<-  7 
ff  f-  10 
TRIANGLE 
A 


35 


B  •*•  S 
ff  14 
TRIANGLE 
A 


tx^CM^ldyvA  do €6 

Cau.66  40  be.  priA^ed --(xidVvou^^ 

4V\e  proc^ram  cUd  do  6otYve4rW»  v\c^  j 

Tv^pm^  A  prodKce$  dKe  r<£6(Al-h 


fexccwie.  T^\/\I06.LE  for  +U.  Vafo€& 
Cff  6)  oJf\A  M  1  ^  • 

WUi^dr  16  A  ? 
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1  TRIANGLE 


[3]  A 


CoiwirwiLK^^  4c>  OiAd  4<:> 

prot^rojYV  TI^\/VKi^L-E 


[4]  V 

V TRIANGLE  [DJV 
V  TRIANGLE 

[1]  4  ■*■  5  X 

[2]  i4-*-0.5x>l 


'Tk^  torw^^er  ^rtrrH  E^3  -for^  ^c^- 
ycK  4m 4ivje.  A. 

"^rv^  ir^er*  4^pe  cc  V  4c>  Cir\d. 

^€.lO  d6Arv\4\cyv  looL^  Uj^  4i^\5 


[3]  X 


V 


Naio  loid  pnAt  Value  cP  A. 


B  ■*•  6 
H  *■  Ik 
TRIANGLE 


42 


^^Cu4\u^  T^AlOGLE  Hjdco  pr^r4s 

4ke^a,rect  of  a.  4r\ah^l€. 

Uil4i^  C?  OJV^  14 


5-^  1  2  3  4  5 
^  4  8  12  16  20 

TRIANGLE 


> 


feK^cu4e.  TlS-lAKl^LE  4or 

5^  bose-S  ar\^i  S  belc^U+S 


K)c4e-.  U)ker»  \\c^  Ol.  ^€vo  proanxm^  be  sure  4o 

^  dv-ffereKt  name.'^ 
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“MONADIC  ”  VS.  “DYADIC”  FUNCTIONS 


\  10 

123456789  10 


i  8 

12345678 


THE  IOTA  FUNCTION  i 

I  16  A.  -far^oKcsA 

6r\€- 

Ac>LMbA.v^  —  ton ■U'€ir\  on 
rtaM-- 


I  5 


\4 

12  3  4 


\3 


t  2 


1  2 


I  *16  OL  "  rwonOidi'tc."  -flu^choA 

+  -  X  -r  ,  f  [  I 

kave-  bA.ek\  sU^uin 

-puncHtfr^  — 

Uii4V\  r\u.mb€r5  wri-H-erv  on  4k€. 
Ie'f4'  oirvd  n^Wf  • 

I  rcrHxrn^  vet-br  cf  posv-hVe. 

\r\keaers  up  ^  4Ke 

'\A'V€^£^r  ^i\r€JA  (S6^  aIso 


il 


This  u  Calient 
Tke  "ntcll"  veefor 
(^tJL  lolank-  r«ne) 


I  1 


l3.5 


'To-kiS.  0^  Tke^e 


l5  4 
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INDEXING  [  ] 


V  2  Z 

ni] 

l'C2] 

^3] 

K[43 

Vi5  2 

pV 


V  16  o*  V'€.c4o'r'  O'f  “Potcr* 

■P\r5'^  ei^fweir\+  \r\  V 
S€C5Vvfi  eleirwerd'  'i<rv  V 

e\€ivven'l'  'in  V 

"TWc  cWiwent”  \r\  V 

? 

P  ccTU.iA’ts  ~Hv€.  nw-imb^f'  cs(' 
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J/-»-592071 


Vi  i*D  soTKe  Members 


Will 

5 


Wi2l 

W131 

WL2  3] 


9  2 


Wi2  +  3] 


Wi2l  +  vi;3] 


2.y<A  feUrYveifH  'ia  W 

TKe.  jAci  'iA  W 

“TWe  2^  ouvd  3'^'^  elemeMs 
'\Ade)C  CA,A  be  cl  v'ec+tir^ 


■A^\  mdejc  GO, A  be  4V^  rei)u|-f'  of  ctn 
eK^ref)^>ioA 

Md  'fKe  2^  otKcl  3*^  etemercts 


^^[4] 

0 


fc^C  5  .  5  ] 


f/[6] 


Will 

INDEX  ERROR 
Will 

A 


Tke  'lade^  rvoc&f  be  aA  ‘ 


Aa  '\^de}C  ooLAAof  be  >  HKe.  -loiod 
AiLPAber  cf  elerweA'hs  \a  vecfor. 
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THE  RHO  FUNCTION  P 


X  ^ 


pX 


7 


7 


3  2  1  If  cjUYv\pu.-Ve^  MKe. 

of  voKa+ev/fijr  \n  nfi'SfN  on 

‘rK 

“TKerc  o-rc  “(  cV^mjen-fs  irv  v€c4or  X  « 


y-*-66666666 


pX 


M<S\J^  rwcMauj  oXemox&s  m  Y  ? 


ALPHABET  f  ' ABCDEFGHIJKLMNOPQRSTUVWXYZ 


^ALPHABET 


26 


ZC  le-Wers  ’iir\  ALPHA'BETT 


p  MSCD’ 


p  M  C  E' 


I?  Co(/wiai5  ^pax€.s  4do. 


SHAKESPEARE  -c  M  MIDSUMMER  NIGHTS  DREAM* 

^SHAKESPEARE 

— >  Coiu\:f  4k€-  I  Herald 

TITLE-<r'A  MIDSUMMER  NIGHT'  'S  DREAM' 

TITLE 

A  MIDSUMMER  NIGHT'S  DREAM 

pTITLE 

25 
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L  *■  'TRIAL' 


pL 


L[4] 


TW  'firUr-VU  Q\^AWeA’\’  of  I—  IS  fl 


iCl] 


Tke  -ftfijV  •e\€i(weKf  ^sf  L  ^ 


L[5  342] 


A  V€jC^r  indc/. 


LIXi? 


L[2  4  1]  ,  '  '  ,  LCl  4  3  5]  .  *5' 


'fke^C 


'kx^e+ker 


LC5]  'D' 
L 


TRIAD 


^€<*461^0  5*^  Q\Q.{v^e\\\' 

orf  L  u3'»4V\  '"D' 

Mcao  U  ’is 


LC2  4  5]  'WST' 


pL 


lOkiJck  U  U  a.-Pf€r  ‘-Ike^e  reaus$‘«(jnfwer\-4-s^ 

klcruo  monv/  \r\  L  ? 
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SUM-REDUCTION  +/ 


K  2  3  5  7 


+  /7 


17 


2  +  3  +  5  +  7 


17 


V  \t>  OL  NTc-cV^r 


-V-  j  (Xdl<i6  tLp  4ke^  Ci>6fwervH  of  O-  V'€C-Vov' 

1+  IS  e^udv'al'C.mrt"  plox^irvc^ 

*+•  b^4K>e'^  C^^iwc.i/vVs 

aiAjdl  e\/(xl  ua-K  iruj  '-Hv^  rc*bu_l-h* 


A^'H592071 


+/!/ 


24 


-f/w  ^Xidids  up  4K^  el^ifKekds  in  W 


5  +  9  +  2  +  0  +  7  +  1 


■»-/\10 


55 


'TKe  sum  o-f -Hve  'in-Vec^ers  frffm  1  4d  lO 


+  /i9 


kdA 


tip  -fircrm  1  -lo  ^ 
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A  MONADIC  PROGRAM 


■DEF(N(M<^  a-  PdoGfi-M^  TO  FIWD  AVEEA^ES: 


^  ®  ^  - - -  Sffv\A^  KiujfY\^E-r*>  nouvvecii  Y 

SUM  ^  +/y  - 5urA  of  -HvE-  &l'Om0rds  in  Y 

^  0^  - - ”TV\e  Aujyvb^r  cjf  el4i(wewH>  m  Y 

^  - ""TW  Av/era^e.  c;f  Tke  e.l€iv\ev\H  in  Y 


^AVEEAGE  X 
Cl]  SUM  ^  +/X 

[2]  N  ^  pX 

[3]  SUM  i  N 

[4]  7 

AVERAGE  4  8  9 


A  p/A^ram  -Hi  4nr\d  -H^e  avcrcu^e- 
of  cuu^  vccjor"  A'f  rvumbers  (^x)* 

(vicjfe  ‘-Hiii’  ^^alv^.e  of  pr^DoroifY^  is 
AVEICAGE  a.rvd  '■HvAt  %  sVai^ds  -for-H\E  nttmbers 
proojfTxM  iajMI  use.  Ta  execLtfe  "Ha’is 
proqram  some  numbers  ru.u.sf  oDoeax-  to  "9^ 
tlOkWr  of  Ave^A^E.  -meretore^ 

OL'^'rvNorvoiiil'c*^  program* 

-'ikese  numbers  ore,  values. 


7 


7  IS  ihe  result 


SUM 


SUM  IS  S6UY\  <sf  elErwents  in  X 

(fronA  line,  [.l]) 


N 


M  15  -Ike  rouwber  of  eWrv\eiA.ts  'in  % 
(from  line, 


AVERAGE 
SYNTAX  ERROR 
AVERAGE 

A 


A\/6^A6E  A^uires  intA-i^bers  for  )( 
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7  ■<-  2  3  5  7 


AVERAGE  V 


4.25 


ror  v'aU'et 

proo^ram  pr'mi^  “Hve  AVEi^i^E 
erf  KiA.rY\b6r6  in  V . 


^-<-592071 

A' 


VC  4]  6 

W 


AVE^£^V4»£  4U£  luimber^  in  W 

Ckan^^e  “Ike.  4-^  €l€rweK+  of  W 


AVERAGE  W 


^ovo  W 


)ERASE  -  A  SYSTEM  COMMAND 


) ERASE  AVERAGE 


AVERAGE  V 
ERROR 
AVERAGE  W 

A 


"lUib  it>  ^ 

CSWNfVVXKjcl l^iKicU-  \Mi  ll 
A.IVV/  ^^AI'Vv£. . 

|sfou)  4lvje 
€ra^>€d 


OL  pro^rojw 

ocruJUl  be^  defined^ 


CWoAWje*. 


Rcu/ote 

f^ewnde 


pfQgoxvn  At2.EA  a>a  A  "nocm^c"  program, 
progniw^  GASEBA^^L  cl^  a  "di^a^c"  prDgncim. 
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REVIEW 


The  mode  of  APL  in  which  programs  are  defined  is  called  “program 
definition”  mode  (or  “function  definition”  mode).  Here  expressions  may  be 
entered — one  line  at  a  time — for  execution  later  by  the  computer.  The 
sequence  of  expressions  is  given  a  name  so  that  when  execution  is  de¬ 
sired,  you  need  only  use  that  name. 

Program  definition  begins  and  ends  with  a  del  V  symbol.  (In  fact, 
dels  should  always  be  paired,  since  they  act  to  switch  back  and  forth  from 
command  execution  mode  to  program  definition  mode.)  Each  expression 
entered  is  preceded  by  a  lirie  number,  and  programs — once  defined — may 
be  edited  by  referring  to  line  numbers.  For  example,  lines  may  be  replaced, 
or  new  lines  may  be  added.  Only  the  latest  version  of  an  edited  program  is 
stored  by  the  computer. 

Several  important  points  about  programs  are: 

— More  than  one  program  may  be  defined  at  a  given  time,  but  each 
must  have  a  different  name. 

— Programs  may  use  values  from  (global)  names  assigned  either 
outside  or  inside  a  program. 

— Results  of  executed  programs  may  or  may  not  be  displayed,  de¬ 
pending  on  their  definition. 

Some  additional  primitive  functions,  helpful  in  defining  programs, 
are:  iota  i,  rho  P,  indexing  Cl,  and  sum-reduction +/.  lota  generates 
index  integers  beginning  with  1  (unless  directed  otherwise);  rho  computes 
the  size  of  numerical  or  literal  data  (e.g.,  the  number  of  elements  in  a 
vector);  indexing  is  used  to  select  individual  elements  of  data  (numerical 
or  literal);  and  sum-reduction  adds  up  numbers,  lota  and  rho  are  examples 
of  “monadic”  functions. 

All  monadic  functions  in  APL  appear  with  data  only  on  the  right 
hand  side.  They  differ  from  “dyadic”  functions,  such  as  +  -  x  ^  ,  which 
are  used  with  data  on  both  sides.  From  syntax  alone,  then,  you  can  dis¬ 
tinguish  between  monadic  and  dyadic  functions. 

Programs  may  be  defined  to  be  monadic  or  dyadic  or  nyladic  (the 
latter  meaning  no  input  data). 

To  test  your  understanding  of  U-Program  2,  execute  (by  hand)  the 
program  on  the  next  page.  Check  your  results  against  the  computer’s. 
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PROBLEMS 


5^-9 

K  2  3  5  7  11  13 
L  ^  ^AEHNRSTW  ’ 

PREVIEW 

[I]  in  3291468256 

[23  pL 

[3]  p7 

[4] 

[5]  7[4]  -  7[1] 

[6]  7[33  +  Pl^ 

[7]  +/7C5-2  3] 

[8]  +/1' 

[9]  +/i5 

[10]  7[pn 

[II]  VlxpV] 

[12]  +/VLxpVl 

[13]  +/K[p7]-5 

[14]  +/i7[3]+pF 
V 

REVIEW 


9  15  2] 
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RULES  FOR  EVALUATING  EXPRESSIONS 


5  +  4x2 

-Hoo  (pr  more)  -ftuicfion^  occmt 
ir\  c>v\e  -live  rui-e^  fox" 

ev(aiuaH6>\  (xre  *. 

5  +  ( 4  X  2  ) 

tuus  1: 

( 5  +  4  )  X  2 

■TKe  'furvchon  inVidc  poLr€K\'VKe^6S 
'\^  id<ryv€  -firs-h 

(10  X  3)  +  4 

10  X  (3  +  4)  ^ 

CdlE  Z:  “-IKe  paren'HvesCS 

1a)U£K\  4Kere  are  hcrve) 

10  X  3  +  4 

n^k'l'rvvo^'l"  -fuj^cKon  'i6  ■ftrs+.  1 

( 6  X  4  )  +  5 

■po  X  4  Pirsd 

6  X  ( 4  +  5 ) 

•po  4^-5 

6x4  +  5 

"3)o  4i"'S  -first" 

6+4x5 

« 

1>0  ^  y  S'  -firsf 

6  +  ( 4  X  5 ) 

4  plus  (^4  4nfV\€S  5^) 
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(2  X  3)  +  (4  X  5) 


26 


( 2  X  3 )  t  4  X  5 


26 


2  X  3  +  4  X  5 


46 


-Hven 


3  2.0^ 


j 


-4ke\<x  a  X  Z3 


71 


1  +  10  X  9  -  2 


1  +  ( 10  X  ( 9  -  2  )  ) 


/  iV€i>e  ar£- 
(  e^iA.\v/al€r\^  -^Kpressicns 


71 


(2  X  3  +  5  X  4)  =  (2  X  (3  +  (5  X  4))) 


Are'Hoe^e  4wo 

e^pre^sioAS 


Qkaliev^c^e- 


Z1  -f  3  X  8  L  5  +  4  t“2 
Z2-^3x(8L(5  +  (4  f  “2  )  )  ) 


Z1  =  Z2 


Z1 
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i6  +  5  I  4  X  "3  r  2 


r  “3  r  2 

T 


E.vcxlu.a4iffv\  bij  pieces 


s 


s 


T 


R  ^  S  \  S 


R 


Q  -<-  6  +  i? 


Q 


P  ^  \Q 


P 


Evalvya'Kvuj  erpress'cms  m  is  dj’ffefev>t  *fn7Yv\  tW  woa^ 

i'b  is  dowe  iy>  altjeVam  (k  t  tbevi  -h  avuA 

OY^e  i'CjOiScm  •for  i1r>\s  fs  +laA:^  are  so  wvav^u  'R/y>cKaY>s 

\^\  (abovd"  C9O  \y\  aXI'. )  tWat  \f  \Ara\AXA  be  hard  to 

reYv\evv\ber  VAibi^cb  to  do  -Rrst. 
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GENERALIZED  REDUCTION 


f  /  -f-  5  9  2  6  7  1 
+  /W 


30 


TKi6  16  Kow 

‘\6  ooHa-oIH 


5  +  9+  2  +  6  +  7  +  1 


5  +  (9  +  (2  +  (6  +  (7  +  1)))) 


SUM  1 


SUM 


SUM  -*■  7  +  SUM 


SUM 


SUM  ■<-  6  +  SUM 
SUM 


SUM  2  +  SUM 


SUM 


SUM  9  +  SUM 


SUM 


SUM  5  +  SUM 


SUM 
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ft^-^592671 


3780 


5x9x2x6x7x1 


Some,  dyadic  •fou^'hons  rvuy  be,  u$6ci 

wHK  4be  r€du£,-hoK\  ^yrv\boi  /.  ' 

'Ti  fwe^  -  r^ucfion 

>^/  evaliAodedl  Uk.€. 

-4*/  ((o/\ly  X  iV\  (7\ac^ 

Crf  -4-') 

X  1 

Max  I  mu,m  -  ir  eduef  /\ 

r/ 


5  r  9  r  2  r  6  r  7  r  1 


.'iMz  7  r  1 


^\fcy\{K(x\^ 
5  im\  \  airly 


MAX  ^  6  [  MAX 


MAX  ^  2  r  MAX 


MAX  9  r  /MZ 


/‘fi4Z  5  r  MAX 


(T^\s  is  il^e  lan^est  v^xUe 

\w  ifV\e.  v^c'Vor^ 
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A'  -^5926  71 
L /W 


MIN  ^  7  I  1 
MIN  -<-  6  L  MIN 
MIN  *■  2  L  MIN 
MIN  9  L  MIN 
MIN  ■<-  5  L  MIN 


MiV\inrMxyv\-  r-educhcrm 


a'so 


c  V  al  ua^es  -frcrw 
+o  \e.^V' 


MIN 

► 

(Th»5  (s  SYviaWejr  vnlue  \\f\  dVe  v^ctcrr) 

-/W 

5-9-2-6-7 

NoVe  4lA43d  4K.e  Kere  it  44v£  tarvug- 

at  4Ue  a\<^eWaVc  turw  of  *H\e  puuw.be rs. 

^  TKe  riAVxirifVNOtV  c>p0rccHoirv 

fe  dori  ^iVsV  ^ 

DIFF  7  -  1 

DIFF 

4Uek\  'Ake  iae)C+  r»^U4tv\otf^ 

DIFF  ■<-  6  -  DIFF 

DIFF 

DIFF  ■*-  2  -  DIFF 

dkdkN  dke  Kvex-f 

DIFF 

• 

« 

DIFF  -f-  9  -  DIFF 

QlWjd  to  on 

DIFF 

• 

• 

• 

DIFF  5  -  DIFF 

DIFF 

cuakl  ■4l\£  loi^d  opcjnxKon 
it  CjBrwpl€4ecl. 

EVALUATING  EXPRESSIONS 


-/l6 


^  1  Z  S  5  ^ 


^  ^  5  -  6  ^^\ep  bcj  s+-ep 

/?  -H  4  -  /? 

R  ^  2  -  R 
R  •(-  2  -  R 
R  ^  1  -  R 
R 
“3 

CUalle/uje'. 

5  -f-  i6 

(+/5[1  35])-  +/5C2  4  6] 


+  /  i6 


-/  i6 


^jaduc+ion  is  o^er^x'oXl'zjsd 

-(W  U6S  wi4l<\ 

di'^ouiic.  ■pu-Ks.cHoi^s  +  —  X  "T 

[  L  \ 


x/i6 


v/i6 


r  /i6 


L/i6 


I  /:6 
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EVALUATING  EXPRESSIONS 


CUsck.  '^crujrsctf  oy\  ru,i-6S 

^Kpr^^^vons 


2  X  1 4 


1 4  X  2 


( i  4  )  X  2 


3  +  2  X  i4 


+/3  +  2  X  ;4 


CENTIGRADE  ■(-  20  +  10  x  1  +  \4 
CENTIGRADE 


FAHRENHEIT  32  +  9  x  CENTIGRADE  i  5 
FAHRENHEIT 
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REVIEW 


APL  has  simple  rules  for  evaluating  expressions — even  those  con¬ 
taining  many  different  functions.  Basically,  the  rule  is  to  evaluate  the  func¬ 
tion  on  the  far  right — subject  to  parentheses,  which  dominate  in  the  normal 
way — and  repeat  until  the  entire  expression  is  done.  There  is  no  hierarchy 
of  functions  in  APL  (as  there  is  in  conventional  algebra). 

Another  way  of  viewing  the  APL  rule  for  evaluating  expressions  is 
the  following:  Every  function — dyadic  or  monadic — uses  the  entire  expres¬ 
sion  on  its  right.  (This  amounts  to  evaluating  the  rightmost  function  first.) 

Reduction  operation  is  generalized  to  apply  to  many  dyadic  func¬ 
tions,  including  +  -  x  ^  T  L  and  I  .  The  /  notation  is  always  pre¬ 
ceded  by  a  dyadic  function  which  is  (effectively)  inserted  between  ele¬ 
ments  of  the  data  following,  and  then  the  resulting  expression  is  evaluated. 

Test  your  understanding  of  these  APL  rules  by  evaluating  the  ex¬ 
pressions  on  the  next  page. 
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PROBLEMS 

i?  ^  5  5  10  4  5  20 
E  -f-  4  •  •  " 

F  2  3  5  7  11  13 
1^2 
E  ^  ^ 

{■/■(-  5  9  2  6  7  1 


xE 

I  y  \E 

\E  y-  I 

{\E)  y  I 

E  +  I  y  xE 

+  /£*  +  I  y  xE 

E  +  I  y  E  -  I 

(£  t  J)  X  -  I 
(£■  +  I)  X  (F  -  I) 

+  /7  X  f/ 

-/R  <  W 

([/(/)  -  L/^ 

(+/{/)  -  p;/ 

RlElVLIlELl'/ 


L/R  ,  E  ,  V  ,  I  ,  E  ,  W 
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Conditional  Branching  58 

Header  Editing  60 
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1  1  0  0 

a:  •*-  1  0  1  0 


L  K 
10  0  0 


1  A  1 
1  A  0 
0  A  1 
0  A  0 


LOGICAL  FUNCTIONS  a  v  ~ 


'XK€.  /AtND  -fuACflon  A 

TKe  ‘i6  j- 

-for  bo4h  X  oM  X  ) 
0  <34k6r(AiiS€. . 


L  y  K 
1110 


1  V  1 
1  V  0 
0  V  1 
0  V  0 


0  0  11 


~1 


~  0 


'The. 

-PuigcHon  V 

TKe  i6  i 

i-f  6rv€.  ^  4ka-  crfUer 
(ex’  bo4^r^)  \6  1  • 

0  c^Ubit uj\6€.  • 


ni\€.  Not  -PuncHor\ 

re'su.l-h  IS 
loQioxl  oppos't+e. . 


'Tke  LOGICAL  ^uncflons  OIS.^  not)  onl»j  opera+e 

oir\  IcxjicoJ  AoAck,  ( 6^  aAdl  Is). 
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~L  y  K 
0  0  0  1 

~L  A  K 


''WOT"  (  L  "ot."  |c) 


v\ 


NOT"  (  L  "awd"  k) 


(~L)  A  ~K 


(^'  not"  l)  "  (''not"  K) 


CUalleyvc^e- 


+  /~(L  A  ~^r)  A  I  V  ~L  =  X 


BRANCHING 


10  10 


A  v\gt  -  reduc:H  errs 

1  0  0  I.aIaO'^0 

0 

A  IK 

./L-i  a/  yields  1  '.-f  ^'^'V 

v/  yi«'d5  1  ^ 

^  Qr-  feduc'bffYx 

v/K 


BRANCHING 


a/LvK 


y /LaK 


1)066  Lv  K  rGSul+  ii/\  all  Is? 
Uo-66  L  A  1^  r^^u-lV  anvy  Is? 
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Q  ^  K  ,  L 
Q 


COMPRESSION  / 


Vo.ll^65  erf  \C  flLKvJ  L  arc 

aUcuvv€ci  4ocjeHver  i\arvved  ^ 


^  2  3  5  7  11  13  17  19 

P 


2  3  5  7  11  13  17  19 


Q  ^  P 


Q  /  P 

2  5  11  13 

(~Q)  /  P 

3  7  17  19 


TK-g.  -FuAcfi6>/\  / 

TKis  ivuav/  be  reoui  : 

Gl  cx>rvvpr€s$  P'' . 

OiA.ly  4kc>^e  eleiv'^irvV^  \v\  P  uiK^ck  kave. 
corr'e6forvdii\<j  Is  in  Q.  ajipear  in  rfeswJf* 

Hema  r€6Ltlf  is  elements  in  P  u^keK^^ 

Is  CLf^eojr  6n“tk€.  l€ff*. 

C>  IClOO  11 

Z  a>  5  1  II  13  17  n 


Ncj^g-  'TKs^  Compression)  -funchom  a  \o^ical  v£c-(ro\r 

of  Os  and  Xs  on  4Ke  l^ff  —  Cii\e  “(lor  eodn  e.l€m^n.i- 

C>Y\  -kk^  ri^h'h 
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L 


110  0 

K 

10  10 

i  /  6  2  8  4 


6  2 


X  /  6  2  8  4 


L  /  'HITS' 


HI 


Co/WP<l€SSld>Nl  uiorICS  by. 

_ VOlIia-^S  OLiTC.  xS 

-  c>rv\»'^vKi^  Valites  \Mkere  4k€re  are  C)s 
I  i  C  O 

2-  S  4' 

(idcep)  (kecp)(ow'i‘i)(|c>«V''''0 

\^ee(?  4ke  values  iA)k€re  4ker€  are  Is 

iKA  K 

{2c>M.PI2_ESS(C>M  works  s\rv\‘»Urly 
iAi'i4U  Ti+E'ra^S 


K  /  'FLIP' 


100001010110100/  'STOP  THE  RECORD' 
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11/35 


3  5 


10/35 


0  1/35 


0  0/35 


l^eep  4k£  3  OirA  4k€>  S 

-Hv€  3  ^  orvA-H  4ke  5* 
01^!+  3  j  ti£ep  "kKc  *5” 

Orv\'»+  4Ke  3  aai  H-K€-S 


1/6 

6 

0/6 

Ol  bWiakL  1 1  Ke 
(^'jei^ull  v£c+6r) 

Coiwf?i^ESS(6Ni  o-f  a  ei€yvveKt 
^i4'k6'c^  ns-ftorns  4Wd  ^khACrct--  in  xj(^ 
or  r€.4urr\6  4ke  v€c-br-^>.  a.<>ir\  C/6 

Thi^  -ftei  16  u.6e3  in  brancU^nQ- 
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ITERATION  AND  COUNTERS 


VPOf/ 

t — 1 

1 _ 1 

Z  ■>-  1 

1 — 1 

CN 

1 — ( 

Z  ^  Z  X  N 

1 — I 

CO 

Z 

1 — I 

1 _ 1 

Z  ^  Z  X 

C53 

Z 

1 — I 

CD 

1 _ 1 

Z  *■  Z  X  N 

C7] 

Z 

[8] 

Z  ^  Z  X  N 

[9] 

Z  V 

N  ^  Z 

POW 

] 

] 

] 

] 


Povv/  c^rvipiAi'e^  al^d^  pnot^ 

-fear  poioars  of  Kl 
by  r€p€a+£d  (wu,i4iph'ca.4i6rv 


Mode*.  VoiL  iu.au 

program  defirxi-n'orv  u:>\4V\ 

a  V  on  4Ke  e^vd  of  4Ke-  last  line. 


Caujsed  by  ltr\e  fs] 


;/  4-  4 

POW 


Ex^cteV^  Pc^^)  fiDr 


branching  55 


'^POWOW 
Clj  2-^-1 

^  ^  ^  ^  Z  X  ff 

[3]  z 

-+-2  V 

-f-  u 


POf/Ol^ 


4 

16 

64 


unconditional  branching  + 

?rograiry\  pOWoW  cuxompl.skes 

program  does  M  morel 
by  itera+ion  •  u  ,  /  >  .  , 

iLAcoiuli-Hcw^l  bla^ro^^  camrvoa^d 


j_  I  -  -  -r"^/  read  ps;  V 

»ne  ixnd  cxxi^^es  4I\^  pfaamr^ 
■to  re^ieo-f  lines  [zj  Oi^^d  Tsi  ^ 
^irdefirviVety)  . .  ,  , 


256 

1024 

4096 

16384 

65536 

262144 

1048576 

^194304 

16777216 

67108864 

268435456 

1073741824 

^294967296 


Oli^ 


ji  ,  knooun  as 

loop  ix  pra<^rarwmcrs 

h'i<jKitv\a,r€.  / 


Pu6(^  ATTM 

4op  r1<^h4  cf  l^ybcorcl) 

■fo  step  'H.e  ajMptx^er 

pvi  h'H  n  ^ 


56 


branch/ng 


EDITING:  INSERTING  NEW  LINES 


ypowow  [1.5]  I  ■<-  0 

[1.6]  [3.5]  I  ^  I  +  1 

[3.6]  [4]  -».(I  <  9)/3V 


ypowowLQ'i'i 

V  POWOW 

[1]  Z  ^  1 

[2]  1^0 

[3]  Z  ^  Z  ^  N 

[4]  Z 

[5]  I  ^  I  +  1 

[6]  -y(.I  <  9)/3 


P6W0W  ^Ujfcald 

if  vSi[[  5top  odRer  a  cerfam 
dumber  erf  repi-H+ioirvs. 

'Tkis  cc>fv\ifV\aKd  \r\sC'r46  ^ 

\\rve  bcfu>eeK\  Un€6  [i]  a»v4  [x] 

^ybu-  are  4Ke  oppor- 

falsify  0f\  tb(?J  "Vo  m^ierf  Ifwire 
i\K\.€6.) 

Ukv^  O-t]  rvvay  be.  overridden 

a.  rvfcW  be4weerv 

Ime-b  W  a^d  [4]. 

iiavifes  v/oa4o  \ri^er4 

rwore  l\rv€6.) 

OverridiVa  ^ifWA.  Ime  [4] 
replcices  wkxi  li  rve  ^4*3  • 


Klcuo,  di^ploiyina  wkole- 
pro^roiM  PovOO^  includes 

4Ke  Keu> 


Also,  Aofe  4Wx4- fKe.  UneS 
l^ave  been  audoma-Hcally 
reb.tLi^^b^r€el. 


V 
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CONDITIONAL  BRANCHING 


ypovowLQ2^ 

X  •‘b  oc."cotcn4eJr"tA-S6di  4o  coccnl" 

V 

POWOW 

hovo  mccny  44^Y^es  lines 

1 — 1 

Z  ^  1 

I  .'s  joi+,*flLifrta  r  *sl  and  W  are  eiceca+eidi . 

/  as  0.  ^  ^ 

C2] 

1^0 

[3] 

f"  1  T 

Z  Z  ^  N 

I  IS  Inirew«v»te4 

,'“?+l’«+>wV  ^  LineL^^J  (6  CtmdiXonoJ  brixncin 

[4] 

z 

/  CCYvimand 

C5] 

1^1+  1^ 

I'l'CflMn  be.  reojd  os: 

C6] 

-*(I  <  9)/3 

^^branck  4o  line  Js]  j-f  X  is 

less  4Karv  ^  Cf4K0r«oi«)e^ 

4o  4l\e.  rxex-f  line*' 


"  *  Tkfe  aenertil  -PormaV  15 

POUOU  ^ CoM(+ion)  /  WVe  nambfit- 


16 

64 

256 


(^^cAq-  4lAod'  bmuNcKim  (jocirks+his 
W<xy  becau5;e-  <5^^  4Ke  Cc^mpressiork 

■(uAclie>n 


1024 


Mo 50^  pro^r^m  ‘sfeps 

ajP+^r(7rin-4'irkg  ^  ^wersc>f  M  . 
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Edii4iK\A  PCjvjcvO  acjoun 

(4  wUl  S'fep  after 
a  Cer4a'n  nuryvber  of  ‘lieratiaY^s. 

Line  chcLn<je4  • 

X  16  0.  narwe  06^4  by  4Ke 
program  and 

rvia^i  be  assigned  a  \^aiv;e. 

X  is  12  {idera+iens) 


512 

4096 

32768 

262144 

2097152 

16777216 

134217728 

1073741824 

8589934692 

6 . 871947674£’10 


Ho4£  4KxL  lairflC  numbers —  Kere^ 

4Kan  lo  billioia--  di^piav/edt  in  E  nofa+'ior\ 
(svrv\ilajr  do  ^'scien+ific  rvofccbioh^Ov^Kerc. 

H  moo/  be  read  ''...4irwes  den  "Vo 
4K.e .  • .  iKe  Satwe  Ko  Ids  -for  very  small 
Kumbers —  like  one  billioyyfpY  ts  lE"^. 


VP0l^0l/C6j  MI  <  X)  /  3V 

N  8 
X  -f-  12 

POWOW 

8 

64 


Z  *»-  4 

POWOW 


X  can  be  easily  ciA<^nged  (os  can 


Voa  ex  erode  i4. 
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HEADER  EDITING 


Prearam  PowJ©\\3  jwav/  be 

‘So  ^Vvcct  '-Irb'S  v^cilw^eS 
■for  M  a-»\J  X  60Lr\  be 
od-  dKe  ^arvie  -Hirvve  ojs 
()ro(jram  rvoivve . 


ypowowio'S  N  POWOW  X  V 


Thi6  ed'id'loA  C6(fwifv\A.Acl  I'S 
U5,ed  -b  cKaio^e  Uirxe  [c] 

(^4ke"K^oud€'r^^  cjf  4be  program) 


VPOWOW  [0]  N  POWER  X  V 

VP0P/£’/?[Li]  V 

V  P  POWER  X 

[1]  Z  *■  1 

[2]  J  ■*-  0 

[3]  Z  Z  ■»■  N 

[4]  Z 

[5]  I  *■  I  +  1 

[6]  ->(1  <  J)/3 

V 

5  POWER  4 
5 

25 

125 


or,  ever\  4ke  of  4Ke 

|>rc(^ram  coiA  be 


Uoco  ?0\n1E^  b  a.  heu:> 
'Mytxdic-"  program 


l-b  ia5=>€6  4wo  valiAjes  ’• 

oAeon  dwe  leff 
oreorv  -be  (for  x  ) 


MoVice  4haf  '/alue  -for  2.  v& 

pnr>ted  (dice  +t>  \ih.e  [43). 
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MORE  EDITING:  DELETING  LINES 


VPOlIERiH^ 


[4] 

[5]  V 


5  POWER  4 


Z 


625 


Hais  16  4ke  proc^docre-fer 

OL  coLu6e  4Ke 

4c>  -WP^ 

4lven  prets  AttM,  -PcUc,we<i 

'((v^measccVe^  itETo^u. 

T>\q4-  '<^41  be.  (ieifi't’S'i) 

a--ffec+eA  in 

w\U  be  reiM*.rv\b^fei  o-fien  4b 


1-f  lirxe  £-4][ 'i2>  ^rojruM 

irv^l"  porxd 

aldkou^U  A'r^al  re^uX-h 
can  be  ^b'bcihed  by  4ypmg 
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PROGRAMS  WITH  EXPLICIT  RESULTS 


l-f  -4^6.  Kcoder  of  a  prcxjimm 
<xva.lu£^  H  hA.S  an 
^^Qyi  pUd-f  _ 


VPOWERlOl  Z  <■  N  POWER  X  7 


I'D  ci^iOLmeci  4o  KaVg  an 
exp  Vi  cX’\‘  r<26aA+  ( 2.^ . 


9 


3  POWER  2 


Vovv/eR  js  ex€cu+Gc|  nou) 

W ha-fever  value  Z.  Kas  «+ 

6nd  ^rf  4he  proaroim  prin'fed 
a6  HKe  re^oi-f. 

'Only  ‘fVve  -A'nal  v/alue  of  it> 

printed 

The  praaram  j'fselT  kos  "Hai  S  . 
re^uW.  'imporiance  of  -flacs 
i-b  -Vha4  -fwe  prcxxmm  can  novJ 
be  U5bed  '^^  express  vans, 
pa^^e 


2  POf/fi'i?  3 


fexeca+e  PovME^-for  a^ 

aixd  an  X  oT  3 
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^POWERimv 

ni\e  d-i 6 piety  o’f  PovOET^ 

V 

Z  ^  N  POWER  X 

[1] 

Z  ^  1 

^  16  local  4t>  'Hv€,  pro^ranA 

[2] 

1^0 

M  ot^d  X  ))  dKey 

[3] 

Z  *■  Z  ^  N 

ojre  only  placekolders  -for 
values  +K£  prD^raAA  (mUI  tL6€. 

[4] 

I  <■  I  +  1 

\^)l^en  Gxectd^d  .  TKey  do  not  keep 

C5] 

HI  <  X)/3 

dWetr  values  oadside  of  -H\e 

V 

pro<jram .  ( See  also  p.  8>l) 

3  POWER  2 

WKeo  PovoeK^  16 

9 

H'Ue  f'esud-k  '6  c.r\Vv 
■VErwpCY'o.r'i  ly  assio^rveq  to  -2. . 

Z 

As  ^rvas  4Ke  program 

625 

4erm'iAaVes^  z  refurvis  +0 
'|4^  previously 

N 

value  (see  p-  (^1 ') 

5 

Sia\iiarlu  -fer  Ni  and  X 
(see  p.  5?) 

X 


4 
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THE  TRACE  COMMAND 


TAPOWEE  ■<r  i 
5  POWER  4 
POWERLll  1 
POWERi2:\  0 
POf7£’i?[3]  5 

POWER  1 
POWER  15  1  3 

POf/£’PC3]  2  5 
POWER Lkl  2 
POWERL 5 ]  3 

POWERL32  125 
P0P/PPC4]  3 
POWER  I5:i  3 
POWER132  625 
P(9(/PP[4]  4 

POf/PPC5]  - 

62  5  - 


TAPOWER  0 
5  POWER  4 

625 


Cc)rYv^v\ai\di  nrv66  1  -W^ru.  5^ 


\MKe.A  4ke  pro<jmrY\  U  4ra.cedij  all 

resitl-b  erf  e)(€CLtftoK\ - fev-  each 

liKP.  \rKd'\roAed'~  ore  pn^fed  ea-f. 


oct\all  \/’ec;l'0\r^ 

4Ke-Pirval  rc^alV  (z:) 

j2.erYui>vlirv^  "HvC  4rac€- 

Mormal  execufiorv 


Proc^mvw  POWK  smalcutes  li^e  WV^avionr 
of  ^r>Yv>ft>ve  f\iT>c'h'ay>  )|e 

•fm-  pos{iSv€  mlecierTS  erv)  ncjV^t. 
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THE  POWER  FUNCTION  * 


3*2 


9 


4*2 


16 


6*2 


5  7  9  *2 
25  49  81 

5  *  i  5 

5  25  125  625  3125 


3 


''4o  4ke  povoev'*'  2. 
C  ^  '?>^UAr€c() 


4  -Hve  po\Mer"  2. 

{^4  6<^uarecl) 


^  4c>  4Ke  pcvoer^'  2 


Severctl  ^xujvibers  po\\ier  1 


5  4o  sevem.\  povoers 


789  10  *1234 


Sfi^v0raLl  iriu/wbcrs 
dlcfferen'b  povo^^rs 


27 


H>  “4\e,  powe.r  3) 
(^3  cab^) 


»• 


3)  4d  4K^  ^ 


3  X  3  X  3  X  3 

> 


3*5  3  'pc\Me\r 

243 
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25  16  49  *  .5 


5  4  7 


9  *  .5 


16  *  .5 


SyjLCcra  rods 
(ntunbers  +o  'fKe  ^  pojAJer) 


8*143 


Cube  rodt” 


32  *  1  i  5 


nocTt 


412  *  0.35 
8.22647961 

2  *  "1 


It  racAioho-l  pc\Me4r5  dre.  p0rm\4t€<l 

Ne(ja+ivc  pcHjjers  ^  2'*  ov- 


16  *  ".5 


0.25 


0*0 


Arv^  A  PL  cturicsiLj 
^Takc  ol.  <y.ess) 


branching 


'^absolutevalue 

*  2)  *  .5V 
X  Q  ~Q 


lkre&  different  c^ib'k.Ucte  \faiue> 

(VMaV. 

'+V\e  posi+iire  vcUiLfe  of  a,  nowbar); 

(T)  Ae,1)0L.UTEVAU)E  ^ 


ABSOLUTEVALUE 

8  8 


Vi45  X 

HX  <  0)  /  4 

C23  X  _ _ 

C  3  3  ->-0 

^^+3  ~x  V  _ 


AB  8 


AB  "8 


^2  4-  aBS  X 

ill  Z  .  X  - 

i2J  -»-(J  >  0)  /  0 
C3]  Z  •*-  -X  'i/  - 

"ii 


@  A?)ScliA.-t-€  value 


U6t 


brrxncU'i 


i-f  X  IS  0.  naqp-Hve  rvujwberj  ao4o4  — , 
cr+be rwis€,  print  v  and  4Kea‘^ 


-  S+op 

pri  A't"  ^ . 
'^e,  ^ec3{^'Hvre  of  X_ _ 

SHc>ir€.  *->  O  {.or  arw^  o'fKer 
lirie  i^umloer  irvsi-in 
proi^fCLm)  cjCLUhe^  H  +0 

trv\media4-£lNy . 


©  Ar'BSolufe  value^  u5vn^^  resoJ-f. 


‘  ^4-'*  ^  po5»4H\fe-  inamb^r  <xv'-<A 

fyvcLl^ number -fK€^  re^ui-f-  (z.) 

•if  X  IS  po-Stfive^-iiop 

■  ^5VUer«ol«>e^ 

re^ulf  [^)  it>  cUar\aed  -k:>  fke 

l^et^a+ive  df  X  " 


i4S5  11 


branching 
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THE  ABSOLUTE  VALUE  FUNCTION  I 


re 

'  j  reWni>  a  rxu-rwber 

18.88 

8.88 

\~3  X  “3 


I  5  X  "8 
40 

ABS  5  X  "8 
40 

T  ^  ABS  "340  t17 
T 

20 

T  ^  AB  “340  t17 

20 

SYNTAX  ERROR 

T^AB  "340^17 
A 


"TKe  aeAnea  -(unction  ^6S 

perforrYve.  ideA-HcaUvy  +o  \ 

and  can  toe  uied  in  C/(>fei.^>ont 

»  '  » 

voWere^ctS  cannci" 

(b^cau-'Se-  e>cpl‘ci+’  resul'V) 
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BRANCHING 


T)^rvcd  pniarary\  E.ES 


7R  <- 

A  RES  B 

Cl] 

■>((/? 

=  0 

)  ^  B  > 

[2] 

R  ^  B 

C3] 

-^(A  = 

0) 

/  0 

1 — 1 

S — 1 

R  ^  R 

- 

u  -| 

[51 

IV 

0) 

-J 

[61 

R  ^  R 

+  1 

\A  “1 

[71 

■*(R  < 

0) 

/  6  vj 

5  RES 

13 

0)  /  0  A  \5  O  orvd  '1-5  ^e£fM\fQ.. 

^op  (residue  naf  de^r^y 

if  A  iS  C>^  birancK  4e>  C>  (^p))  4ke  r€6al+  Is 

if  R  16  >^0  ,  ^u^bftract  absolute. 

vatiL^s  of  A  replied  I 'j 


Vcafry  ’i4  -fi^r  5  and  l2> 


TARES  ^  I  7 

5  RES  13 
RES[ IJ 

13 

/?£'5[3] 

^£’5[4]  8 

^£*^[5]  4 

^’i5’5’C4:  3 

^^5[5]  4 

^£^5[4]  “2 

/?£’5r5] 

^£’^[6]  3 

RES  [7.1 
3 

TARES  •>-  0 


1  raciK 


e.es 


^ei 


rhovi 


4K€,4' 


nxc'^ 


branching  69 


5  I  13 


TK^-se  are  eoui  v/aleh*t~ 


1  RES  3.14 


0. 14 


3-1^  -  1  RES  3.14 


-  1  I  3.14 

3 


Thi6  'fields  -4ke 4iracdic> ral  paH" 

Ses  car  be  used  m  cxy\ 

eKpr€6s'i6/\  . .  . 

.  ..  jw-dd  [\ke  I  ■func'Kcm. 


VZ)  -f-  FLOOR  N 
[1]  D  ^  N  -  1  \  N 
V 

FLOOR  3,14 


<-  CEILING  N 
[1]  + 

V 

CEILING  3.14 


>■ 


branching 


L  3. 14 


THE  FLOOR  AND  CEILING  FUNCTIONS  L  r 

Tke,  Flooi^  FuncHon  L 


L6.2  6.4  6.6  6.8  7.0  7.2 
6  6  6  6  7  7 

L8.0  8.3  8.6  8.9  9,2  9.5 


»v\tefik€r  douj»^  ■^6  viuYv\\ocr 

(O 


TKe  C£iLiMC>  FoncKot^  f 


ra.  14 


re. 2  6.4  6.6  6.8  7.0  7.2 

7  7  7  7  7  8 

fS.O  8.3  8.6  8.9  9.2  9  5 


CeiliK^j  >5/1  elds  4ke  \nean^t 

\v^tec|er  up  tVie  v^uwVjer  \iwe. 

(^) 


SHERLOCK  •«-  'SCOTLAND  YARD' 
7  4  11  21  5  12 

SHERLOCKl[25  X  ^  T+/ff] 
LONDON 


y\n  e^ompl^  o"f 
usiAQ  r  in 

iAd€Kli^ 


6'*^  yor»_ 

4W<.4  4k€.  '(fvdfces 
a.re'm4^aer«,) 
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ve  ROUND  N 
Cl]  e-^L//  +  o.5V 


H  prcaroLm  4o  tooMD  crff 
naifv\ber6  4o'-tke  ncarcsf  ini^€.r 


ROUND  3.14 


ROUND  3.6 


ROUND  2.55 


ROUND  2.0904 


CjAali€v\^e. 


G-f-^-^-lO^  6 

1 .666666667 


displa'^S  4kt  rc$u.l4" 
<2jf  4ke  express! cn  4c  Its 


(10*“3)xL0.5tZxl0*3 


1.667 


(10*~4)xL0.5+Zxio*4 
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REVIEW 


Branching  is  an  important  programming  technique.  It  permits  you 
to  indicate  the  sequence  of  commands  to  be  executed  in  a  program.  Both 
unconditional  and  conditional  branching  can  be  expressed.  A  popular  form 
of  conditional  branch  commands  is  (condition)  /  (line  #)  although  any 
expression  which  evaluates  to  an  integer  or  null  may  follow  the  branch 
symbol  ->■ . 

The  logical  functions  a  (AND),  v  (OR),  ~  (NOT),  and  the  compres¬ 
sion  function  /  are  often  used  within  branch  commands.  Also,  the  power 
function  *  ,  absolute  value  I  (monadic),  residue  1  (dyadic),  ceiling  T  , 
and  floor  L  are  useful  mathematical  tools  available  on  the  keyboard.  It 
should  be  noted  that  some  APL  functions  serve  double  duty — that  is,  they 
can  be  used  monadically  or  dyadically. 

Additional  program  editing  procedures  include  inserting  new  lines 
between  existing  lines,  deleting  lines,  and  changing  the  header  of  a 
program. 

Programs  with  “explicit  results”  can  be  used  within  expressions  just 
as  if  they  were  primitive  functions  on  the  keyboard.  You  may  define  such 
programs  with  local  names — names  which  have  values  only  while  the  pro¬ 
gram  is  being  executed.  The  complete  execution  of  a  program  (or  any 
specified  lines)  may  be  traced  automatically  by  the  computer. 

Test  your  understanding  of  branching  and  related  functions  with  the 
exercises  on  the  following  page. 
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PROBLEMS 


00001100000111100000  O/'BEFORE  YOU  VIEW  MORE,' 

(4  =  4)  A  5  =  5 

(3  S  4)  V  5  5 

LOGICAL  -<-011001 

(~  f^/LOGICAL)  =  '^/-LOGICAL 

2  I  ^/LOGICAL 

2  *  ^/LOGICAL 

I  ^/LOGICAL 

I  -/LOGICAL 

v\  s  z 

□  -e  r  ^  (5  ^  +  1)  /  i5  +  1 


T  *  S 


>■ 


S  *  T 

(5  *  2  )  r  2  *  5 

((5  +  1)  *  2)  =  (5  *  2)  +  (2  X  5)  t  1 

(S’  X  x/5  -  D  *  .5 
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D  ^  P  2 


(10  *  -P)  X  (..5  +  X  y  10  *  p 

ic-Mbody  above  m  a 

{uo'i'Ho  (yx\  explicit  ref>(xlt)  vvlhicU  vvrill  rooM-ott' 
ol  »(\a/Y\b€r  X  do  “P  plo-ces. 


lexami^a  4ke  progmm  beloto 

VZ  ^  L  MAX  R 
Cl]  {L  >  R)  /4 

[2]  Z  ■*-  P 

[3]  0 
C4]  Z  ^  L 

V 

cmdi  4ken  VO  rite  ol  Similar  (>ro^irt2im  ^wji+h  broAcUlrvx) 
do  ft  Ad  dKe  MlMiiYtum  nombers  u  arid  ^  . 

TA/VJP  -c  1 4 
R  ^  1.667  MIN  2 
TAZ/JP  ■<-  0 
S  MIN  R  MAX  T  [P] 
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U-Program  5 


APPLYING  FUNCTIONS 

Contents 

Random  Number  Generator  ?  78 

Local  Names  81 

The  Membership  Function  e  82 

Sub-Programs  84 

The  Take  Function  -t  85 

The  Drop  Function  -t-  86 

The  Deal  Function  ?  88 

The  Grade-Up  Function  i  91 

The  Grade-Down  Function  t  92 

The  Index-of  Function  r  93 

Index  Origin — A  System  Variable  UIO  95 

Review  96 
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RANDOM  NUMBER  GENERATOR  ? 


?2 


2 


?2 


1 


?2 


1 


72 


2  2  r-e+u-rnt  1  ov-  2. 

4o  voWicK' 


?  33333333 

11231213  ^OLl^dcifVl  lA'l'^^^drS  '^rofvi 

?6  6  6  6  6 
6  4  5  4  3 


?5  2 


A  raK\idcnA  number  -(VcrvA  1  4o  52 

{ picked  oato-^  z52.) 


y^u-  ryvO-v/  Acst"  4Ke.  SO.fVvj£  Ktunb^r" 
i-f  ^vcecuie  -bolce. 


29 


?5  2 


14i  M  '\5  ^ofwe  In+e^er  beVtoeen  J-  o.ia£1  52, 


(1</I/)a(//<52)aO  =  1  1^7 


A' 


? 


4iver\  N/ 

QjAd 

NJ  \s  ^  52 

OL^di 

|s^  ii>  a  ^AJb(bl^  l^umteGr 

(remamdicr  odfAer 
bV  i  isO) 
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?  6  6 


Sirv\iaocH»v>  -Hve  roll  o^"  4wo  dice. 


?6  6 


VZ  -f-  ROLL 

z  t-  +/  ?e  6  V 


ROLL 


'Tooc  rcur\<ic>irv\  numbers  ^  feojdn 

1  a^cl  ^ 

A  pr6^t'atv\  R^L-U  4u)0  ci'ic-e 
a.»\£\  oudd.  41^£J'vv  up* 

Cr^oLL  IS  a.  ‘VijUdji'c 
pnwjmw  wV'lli  av\ 
expli'at  resvlt  Z.) 


ROLL 


ROLL 


ROLL 


ROLL 


''  fe>ll  +ujc>  dice  airvd  add  4i^e  humbers 


—  C&  rway  be  a  d»ffereKV  r€$ul+) 
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ALPHABET  ^  ' ABCDEFGHIJKLMNOPQRSTUVWXYZ ' 

ALPnABEn?2ii:i  Rar\<ic.(v\l'y  pickir\Q  a  U-Her  -(Vofn 

4ke  ALPHAefeT 


ALPHABETL  ZpALPHABET'] 


ALPHABETL72S  26  26  26] 


QVAR 


4  ruK\do»Y\  "indices 


ALPHABETL726  26  26  26] 
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LOCAL  NAMES 


V  RANDOMWORDS  N  ;  J 

[1]  «7  ■<-  0  -  Xn’itiallvj  T  Is  0 

[2]  ALPHABETL726  2  6  2  6  26]  - 

[3]  J  -I-  J  +  1  — 3  ir\6rerY'^'^€ci  lovy  i 

[4]  -*  (j  <  N)  /2  V  —  brouvclN  4o  U^e  1  i-f 

N  CrHv£.rujt%€L 
ervA  prajnii'VN 


N  I  S  CL  IocjoU 

Addli4n6r\al  local  rxarwes  , 
fv\ok>/  be  lis^^  af+eri>emi- 
C6loK<=,  lA  4Ke  proarairvA 
Keoudier. 


■J  16  OL  local  Aarwe 
Usodl  b^j  4Ke  program 

(,ri 

Oujigit-Hon  4o  N ) _ 


RANDOMWORDS  6 


QPXL 

ROHJ 

RSCK 

XBVE 

CSXI 


(2fHi\>6MW6eDS  p\rvrvis 
^4  ra^6fwl>y  aeA6^rccl'e4 
4-  leVVer 

J*  15  iA.5ed  -k>  coaKt 

pr^oanom^  -fKc.  nxrvdifinA 


j 

VALUE  ERROR 


Ho4e  4bccf  3  Kas  h6  v'alae 

(^a'Hlde'^ke  prtjgrunA 


J 


Awd  n1  16  nod  cbanaecl 
(Vr\\s  \s  4Ke  va.ltA.€OT  M 
pa.<^e  7<S> ) 
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4  e  2  4  6  8 


1 


5  e  2  4  6  8 


0 


6  €  i  5 


2  e  X  5 


THE  MEMBERSHIP  FUNCTION  ^ 

It)  4  A  ©4  2  4  4>  ^  . 

h  5  QL  /member  ©"f  2  4  S  ? 

(Nfo) 

Is  (o  (werwbfeT'  I  2  3  4  b. 

Is  2  0.  rwemb^r'  erf  I  2  3  4  b  ^ 


VOWELS  ^  'AEIOU' 
M'  € 


1 


'fl*  e  VOWELS 


^A'  GL  r^e-mber' esf  'AElou'  ? 
[Ves) 

Is  a  voujiel  ? 


'C/ir*  e  VOWELS 


0  10 


3  q^i^£;s■bo^^s‘•  Is  'C^  a  vbiAiel  ? 

^  (s  '  A'  (X  voio^l  ?  (v/es) 

Is  ^T’  a  \/c>u3el  ?  C  r\c>) 


'COMPUTER'  €  VOWELS 


a'lve  QtA$(*i€.rs  (6s  (wi  1*5^ 


V/  'COMPUTER'  e  VOWELS 


1 


TKer^  is  aHr  6^6 

lA  ‘Compote:/?.' 
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V/  'Ll  hi  GO'  e  VOVELS 


VZ  X-  VOWELCIIECKER  WORD 
1]  Z  -e-  V/  WORD  e  VOWELS  V 


VOWELCHECKER  'CONSONANTS' 


VOWELCHECKER  'WHIZZ' 


v/  o  1  o  o  1 

A  proaram  4o  cKedc 
[■f  ol  WCI^1>  lr\a.^  Vbw/EL 


Is  OL  vcxMei  )n 

'C^JMSONiftMTS'  ? 

( v/e^  Of  r'o) 

O  or  i  ? 
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SUB-PROGRAMS 


V  RW 

Cl]  WORD  ^  ALPHABET  [ ?26  26  26  26] 

[2]  -*■  (0  =  VOWELCHECKER  WORD)  /I 

[3]  WORD 

[4]  -»-l 

y  RewewWr  'HoaA' 

VOWELCHtCKEl?.  ,, 
wusi'  Wxvc.  clv>  e,)fpV«OT 
feiv/lt  ivN  flpndifcr  to  bt 
uietfL  \r\  oof\  e.>cpfe3S>'<na. 


i?{v' 


PVIG 

ZWWI 

YRVO 

OEYV 

EBIC 

CNAO 

SAER 

IBDX 

FJPE 

ARTS 

EZOH 

OPRM 

OPLD 

NTAB 

NT  AG 

CJOP 


Now,  here  are 
Scnme  rav\(5laYv\ 

4  ‘  I  eHer 
wvlh  Nfowels 


6 


Proa  rams  M.sed 

10144(1  ri  o-^ker  pfoaroms. 
"TWey  oure  called 
Sato-  prc)^ra.rY\s‘' . 

Proaram  VoWCLCHEOCe^ 

IS  Ssed  prognm 

M  OLS  OL  sab-  prcx^irom . 

If  ciA££k.%  Woe.t)  rourvdam 

4-  le+t€r  "loorcl''  assiA^ed 
on  U^e  Dl)  fbr  a  vowel. 

rf  4  doesn'd*  have  <a- 
vowel  fo- vovoGLCueo^Eie 
\^)o^t■I>)  4VNe  proaninA 
broufvckes  baok-4o  ime  [U 

do  pidc  a^-Hver  vM0(^. 

If  if  does  have,  a  vowel, 

vf\£,  nevd  line  priofs 

V0oei>  before 

bock  do  Ime  01  oijain, 


PYUN 

PUXR 

XGQA 

CLIH 

TUB 

OMFC 

UEEB 

LKQI 

XUEO 

AUNW 

PTWI 

ETSW 

CEKC 

ROVW 

UQXW 

JWUL 

FDFI 


fljf  S>d(3pp\ia^‘ 


VocL  rv^io^kf  ^did"  do  coanl"  dke. 
pfinfed  oad”  airvdi  do  sdop 
I'h  reexoKes  a  oerdoim  number 
^mX)c>Kwo#li>s  ovupctje  SI) 

^c>r  nou)^  use  4ke  AttkJ  key  4o 

‘Slop  id. 
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THE  TAKE  FUNCTION  + 


!7-(-592671 

2  i  w  2  "4ake'^  W 


Z  i  W 


9  2 


4  +  {/ 


{+(Xte  -Uvfi  -ftrst  2 -from  4Ve -frsn'l' isf'  W) 

B  w 

4  "  -Kk£" 


5  f  f/ 
9  2  6  7 


w  -  e  i  w 


1  \  w 

9  2  6  7  1  0 

”2  f  W 


\/0  U  6c>nr\pour€jd  4t>  -hxlte  ^  W 

l/OKe-A  -WkiiAA  rr^cre  ^Wxir\  4Ue, -Itftod  rvwjv^b-^^ 
<5^  ei€f<\eirvt*OjJ0s  are  I4^>edi  (pr^^ace^^  Uoi4U 
U'+eral  arrav^s). 

T'a.k-€  Z  4i\e.  rear  erf  W 


3  +  f/ 


Takifc.  4ke-  1^-5+  2>  <yf  \f\l 


(2  +  {/)  ,  “4  +  {/ 

9  2  6  7  1 


5  + 


The,  S  a-f  w 


8  +  (/ 
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THE  DROP  FUNCTION  + 


w 

5  9  2  6  7  1 

2  i  w  2. 

2  6  7  1  [6rc>^  2-  -from  4h€  of  W) 

3  +  D'n^p  4We  -Ars4  3  fn>fv\  W 

(4  +  f/)  =  "2  +  p/  Drbppirva  ■4Ke.ftrs4'  4-  frorYv  W  is 
^  ^  pi^\valeir\-t  4o  ‘kikinij  'H\e  la.if  2-  -Pnsivi  V 


(“2  +  V)  =  4  +  P/ 
1111 


4  +  A/ 


4Vt6  ICLsf  4  from  W 


6  4  f/ 


l)rop  ^  of  W 


/1PJ5 


'^iPLOMB’  "i)n>p  Oi^d -lak£  iMork.  wifh 

Irfsrals  "foo* 


'  APLOMB ' 
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A  program  iA6m^  t)(^P  >1^ 


Cl] 

[2] 

[3] 


VTRI  N 

N  _ _ 

N  f-  1  i  N  - 

-*■  (0  <  p//)  /I  V 


^rinV  4Ke  valive  6-^  Ni 

Kl  b£jCDiYve-S  1 

braAcl^  -(t)  i.  rf  0  ^  ^  N 


(tf  M  Ka$  S6me4HiKig 


TRI  'CHEAT^ 


CHEAT 

HEAT 

EAT 

AT 

T 


^ro&jrcKm  T^X  priA+s  a 
Viarv^^le  6f  wKcd^ver 

\jGv^  <j\ve  H  -Por  Ki 

('Kere  'CHe^t') 


ri?!  *  AN  I  THING' 


> 
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THE  DEAL  FUNCTION  ? 


5  ?  5 
1  3  4  5  2 

5  ?  5 
5  4  13  2 


5  humbens  are  rand[6mly  'from 

\  2  3  4  6r  replacemeni" 

lumbers  are  scrambled^ 

iVere  arc  r^c>  repeats. 


5  ?  5 


"Deal"  4ke  in+e^jers  ai  random. 


^ STONE' II  ^  5  ?  5] 


Sorumb^^d 


(£4er5  bs/  WCic^ 


VOKat  Value  for  I  voos  reaoireci  for  4k£ 
abovre  rcsuH  ?  ^ 


1  ?  5 

i  'McclI" 

4 

rairvdom 

number  from  15*) 

2  ?  5 

2-  roLl^dcrv^ 

no/nbers  from  ZS 

3  ?  5 

3  random 

numbers  from  ?S 

4  ?  5 

4  random 

numbers  flrom  25" 

5  14  2 

5  ?  5 

5”  random 

numbers  from  ^5" 
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A  ai  a.  circle  corci-s 

5  2  ?  5  2 

43  47  13  7  49  14  25  26  12  19  30  17  48  44  36  35  22  20  18  2  4 
40  33  31  9  28  37  39  1  52  6  42  11  10  27  46  41  45  51  38 
8  29  16  5  34  15  3  23  32  50  24  21 

13  ?  5  2 

25  45  43  41  30  48  40  5  17  42  44  10  29 

(a  di-ffcr-Grrf  "Kand'O 

\'h  '^dl£a.l+''  (jtid  2  IS 

i4  C5^  ?12) 
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Chailey^e: 


'NOTES'  LILT  ^5  ?  5]] 

STENO 


U/ha+  Yvsusf  Z  have  beem  -fur 
-tve  ahdve  -k>  l^app^  ? 


□  PER  ^  xpl 


|2e/>ca+ed  mdie^mq 
produdrv^  perma-wioas 


□  PER  ^  PERLII 


□  -f-  PER  ^  PER  [I] 


□  PER  ■<-  P^flCJ] 


□  PER  *■  PERI  12 


a  ^  PER  ^  PERU!  Xt  corvie^  bade 

1  2  3  4  5 
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THE  GRADE-UP  FUNCTION  i 


I 

3  15  2  4 

01  “i  7  "4  8  2 
Dim 

■4  “l  2  7  8 
kDl 

3  15  2  4 

01[401] 

■4  "l  2  7  8 


I  16  CL  "  p6^rfY\ldGl'H^>n 

voh\cK  Wapp^i^S  +0  ^r4  D1 
'm'b  osce^di!^  order. 


^rade-up  Atnc4iCir\  4^ 
Can  ue  w.6ed  4d  produce. 
4Ue  6arwe  result. 


ov/erstrfke 

A  0^1^^  I 


D7  ^  2207 


4»02 


yields  a  pcrmutat^n  ved-or — 
VvihvcK  will  arraikje.  a  ved6r  in  order 


DlikDll 


vz  4-  ooor  z 
[1]  Z  V 


'TUe.  0L6ceK\d'»Ag  order  erf  t>2 


A  concise  proaram  to  S06t  any 
numerical  \recTor  in-lo  asceMinc^ 
order 


SORT  7-^5  13.2  4  9  7  0  3.5 


"4  0  3.5  5  7  9  13.2 


SORT  7[(p7)  p7] 


Sae.T  scrambled  V 
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THE  GRADE-DOWN  FUNCTION  t 


6  9  2  2  0  7 


2  6  1  4  5  3 


ON/erstoVe  V  1 


produced  a.  parmidcAon  -for 

defScendli^  ord^r 


D2L1702] 


'6  5  7  8  9 


Dl  in  dstcendirvc^  ordGr 

VJha'I'  are,  4Ke  IndicGs  vyiWicM  imUI  arrai^^^G- 
descend  I  htf  crd-er  ? 


N  7  ?  7 

S  'NEPTUNE'  INI 

Suppose  W  16  i)Ofwe 
p^rmud-a'^n  vector 

S 

§  (6  'mePtokje'  ^^rambted 

SliNl 

3  Can  ujr\sirambl€ci  bvy 

U.61KVJ  (^nsuiG-up  4  • 

N  ^  7  ?  7 

S  *■  'NEPTUNE'  [^] 

s  ci//] 

Tnj  1+  a^aln . 
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ALPHABET 


THE  INDEX-OF  FUNCTION  i 


ABCDEFGHIJKLMNOPQRSTUVWXYZ 

ALPHABET  i  M '  \  diyA4icall'y )  >/( 4Ke. 

1  index  -o^  'A'  in  ALPHABET 


ALPHABET  \  'BAT' 
2  1  20 


'6'  i<»+We  2*^  letter  in  AL^^HAferr 
'A*  -fke  leMrer  ir\  ALPh4AfeET 
vj'  4We.  26^  leHer'm  ALPHA€)ET 


ALPHABET  \  'MAH' 


Wha'V  are  4Ke  irvlic^s  (5^  ’(V\'  and 

'A'  OiM  'N'  in  AlPMA^&ET? 


ALPHABET  \  'ROBIN' 
18  15  2  9  14 


ALPHABETL  18  15  2  9  14]  u-5><2.  4Ke  incli<i£S  wi4h 

ALPHA^er^  <^e+ .  * .  ? 


27 


1  t  pALPHABET 


20  16  12  8  8  6 


In  case  4Ke  valae  on4Ke 

16  Acd  'fband  in  “Hne  vQ.lU€5  c>n 
-ike  le-P-l-,  index-c-f  (jixes  1+ 
number  values  on  41ne  ler+- 


In  coise  crA  dapiicA-tes,  index-c"^ 
only  (jKes  -4iie  firs*"  index- 


4 
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VZ  ^  LSOET  X 


[13  Z  Z  [^  ALPHABET  i  Xl 
V 


?rMrafY\  LScbi^T 
wUrsorf  li+erais 
in^o  alf?Ka.b^'‘c 
orcl€r 


LSORT  'CAT' 


ACT 


LSOET  'SLOT' 
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INDEX  ORIGIN  -  A  SYSTEM  VARIABLE  UIO 

uio  <-  0  Thi6  orl^tQ  orf* 

ir^ic^s  'f\Tc>iY\  1.  40  O 

^  ^  14  a4fectf>  4Ke  4€al  4uAc4i<i^\^ 


I  8 

01234567 

'ZERO*  i  'ORE* 


3  4  1 


4Ke  livie^-ijeifveroLlDr, 


44^  -(ur^KDi^ 


R 


'ZERO '121 


i6  9  "2  2  0  7 


Qf>  w<5(l  a-b  all  mde^im  opara+ions 

(see  a\so' 


CL/vd  ^rodc-up 


ckaf^cr-  SV 


ye  9  ”2  2  0  7 


(Lrvdi  ^rad-^-4ovNir\ 


UIO  -s-  1 


5  ?  5 
2  3  14  5 


i  8 


'1K€,  cemmcuvi  4o  clrvxMe.  ‘H^ 

orv(jM  boLCtc  4c  1 . 


(VcnWDll  fiK€Cu4l6K\ 


'ZERO  '  [2] 


Note : 


□  TO  IS  OY^e  o4  several  "system  variables" 
all  of  beqlY>  wvtb  □.  See  2.1^/ 
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REVIEW 


APL  has  a  rich  resource  of  functions — you  may  consider  them 
“tools” — to  apply  in  programming.  The  random  number  generator  ?  ,  for 
example,  is  convenient  for  simulating  real-world  processes,  experiments, 
and,  of  course,  games.  Other  useful  functions  include:  membership  e  ,  take 
f-  ,  drop  +  ,  deal  ?  ,  grade-up  i  ,  grade-down  t  ,  and  index-of  i  . 

Programs  may  have  several  local  names  (in  addition  to  those 
needed  for  syntax).  They  are  listed  following  semicolons  in  the  program’s 
header  and  are  used  to  keep  track  of  values — such  as  in  counters — which 
are  only  needed  while  the  program  is  being  executed.  In  fact,  all  local  names 
lose  their  values  after  execution  is  completed. 

Programs  may  have  sub-programs.  (And  sub-programs  may  have 
sub-programs,  etc.)  They  may  be  used  within  expressions,  but  only  with  the 
proper  syntax.  A  main  program  continues  execution  exactly  where  it  left  off 
after  a  sub-program  is  completed. 

Some  system  variables  affect  certain  APL  functions.  UlO  is  one  such 
system  variable  which  acts  to  change  the  index  origin. 

change  the  index  origin. 

To  test  your  understanding  of  U-Program  5,  begin  writing  programs 
of  your  own  choosing  using  these  tools.  See  U-Program  6  for  examples. 
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U-Program  6 


INTERACTIVE  PROGRAMS 

Contents 

Data  Input:  Numerical  □  98 

Data  Input:  Literal  □  100 

An  Arithmetic  Drill-and-Practice  Program  102 

Line  Editing  104 

Line  Labels  104 

Suspended  Program  111 

State  Indicator  112 

A  Simple  Game  Program  114 

A  Simple  Simulation  Program  116 

Review  118 


97 


DATA  INPUT:  NUMERICAL  □ 


3  D  Q  symbol)  reoLLC^fs  inpoCt. 

U:  TI^€.  Cci(y\p  ui^£)r  pririts  13’.  ^inci4K£n  vvjcii'fs. 


21  - —'iouL  rnairV  ef\-^er  Ol  namber  before 

2)X  D  con  be.  eYa.l^u,a4ed 

^  ^  '»r\pccl'4br  A 

[J: 

5  ^ - 2 _ s/ouL  e^n-l^er  S* 

^  A  Is  roio  ^ 


i?  f-  □ 


□  : 


9 

B 


lopai  -for  B 
^  i5  e.yvV^'T^ 

IMbocf  \s  of  ^  ^ 


C  -t-  4  X  IJ 

U: 

8 

C 

32 


//■«-□ 


Li: 


17  X  2 


<7 


d  b  4  -fimes  -|4\e,  ^4©  b  e  s  o\nne 

number) 

3  b  errtereci  -14\e 
Tkejn  d 


H  b4c>  be  ^me  i[V\»n^ 
E\falu.q4e  4WH. 

M  b  4hocb  nurviber' 
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l-f  yoiA  en+er  'improper" 

^  ^  Gxpr^55(6n  ^one  prodw^ces 

c:  OLh  err&r  report-)  ^  4V^e  re<jn.e6+ 

3  u  4  for  mptd-  16  rep^orf^  . 

SYNTAX  ERROR 
3u4 

A 

U: 

jf  Vo(^  <2-r\4er  a  nah+--()6(rr4nAn  (xrro^ 
(>n  empW  b^x^U^),  4Ke  r^^aesf 

Is  -4crrr»\ir\«xf6^  • 


VALUE  ERROR 
S 

A 


Ar\d  S  will  no+  K^e  oi  value. 


Ckall€n(\e'- 

5x8rU  +  2  ^ 

Wi'H^  10  in  place-  or  Q 

expre66ion  evccVixa-Ves  4o  be  foO. 

10 


60 


5  X  8  r  □  +  2 


□  : 


lAJbob  Is  4ke  evoluoHon  4be. 
expre^^/on  -fer  7  in  place  of  □  ? 
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DATA  INPUT:  LITERAL  □ 


A  ^  \n 


LITERALS 


LITERALS 


5  ^  [!J 


ENTER 


0  airvci  *  4ci  -form  E 

Q  ('(^4e-^uQdi)  re^i^ebh  IHenxl  inpaf- 

TKe.  keybdbarcl  ©psnS  Q:f44\e  (■ept  marg'in* 
LlTEitALS  are  en-Vered. 

A  kos  4ke  v’CLlae-  LITERALS 

TKere  <xre  ^  ^lerYverte  [{eM^eis)  in  A 

n  ti4eral  'ioptd" 

^Ajhat  'i6  ? 

6  k)L5  5  E'€ifv\en+5 


'^AKy'  errtered  -fer  ^ 


s  ,  C  ,  /I 


B  ,  '  '  ,  C  , 

ENTER  ANY  LITERALS 


lAika4  did  yo(A  e^pecf  ^ 

(spacer 'in  befween^ 
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X  <-  'TYLENE' 

X  ^  n  ,  X  ^  ^CE'  ^^oe'S  wlnere  D  16 

ACE 

^  TKeh^  wka'i'  is  4U£.  vclIias,  oP  V  ? 


Y  u 


0  backspace  u  backspace  t 


Tbie?  "‘5ccb(6fi^s'^  "Hve  r€(^aes-f 
lifera-l  baf  V 

do^  r\c>^  bave.  a  v'aluce . 
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AN  ARITHMETIC  DRILL-AND-PRACTICE  PROGRAM 


DRILL 

Cl]  'MULTIPLY' 

[2]  J  -t-  ?  20 - 

C3]  J 

[4]  y  ^  ?  20  ' — - 

C5]  y 

[6]  AnSWER  U  — - 

[7]  -^iAllSWER  =  y  X  y)  /  1 

[8]  VW,  TRY  AGAIIP 

[9]  ->6  V 

DRILL 

MULTIPLY 


X  16  (X  ra.Tvdc)m  number  -lVorv\ 

I  f  c  lo 

y  |6  OL  (Txndcm  f\umb€Jr  -(hcXY^ 

I  -fo  ZO 

accept  Mn2^  s-Wlenf's  ansiMer 

- - i-P  Kis  AMSWE^  16  (jarred-, 

-Yt>  line  1  (and  aiveandkeir 

problem)  aHKerwHe-j  pnnT 
HO^T(2.V  A6A-lNiand  4beir\  0^ 
j;;)(xck-  4o  I  'l  A  €.  P> . 

E^eca'Hon  cjf  pr<oavTim  D(^ILL 


16 


11 

Q: 


176 


MULTIPLY 
14 
13 
□  : 

143 

NO,  TRY  AGAIN 

U: 

272 

NO,  TRY  AGAIN 

□  ; 

182 
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MULTIPLY 


'There' 5  a  problem  wHh  -this  prcx^nayv^ 


11 

4 


^uAer^  Kas  r\o  wav^  4o  s+op  Th ! 


□  : 


44 

MULTIPLY 

18 

3 


U: 


(l-P  Ke  qefs  a.  problem  correc-f^  h£ 
'i5  ^Tv^en  air\c.+her  one, 

i-f  he  makies  a.  he 

is  (^Werv  a.Kic5+Ker  hry. 

"This  will  op  crv  ^r\iJ  oir^  .  .  .  ) 

ay^less  ->  is  entered 


V£)/?ILL[6.5]  -*{ANSWEP=STOP)  /Q^ 


Let's  inser-t  a  I  trve  wKicb 
permHs  “the  shudem 
-to  shop  -the  program. 


.srop-f-gg  .9 


DRILL 

MULTIPLY 

10 


SToP  is  assigned 
Sorwe  homber  ncrt" 

likely  ho  he 
response  -to  hhese 
rviaHi  pi  I  cahion  pro  blems 


1 

□  : 

10 

MULTIPLY 

17 


10 

□  : 


1170 

IW,  TRY  AGAIN 

U: 


STOP 


When  -hhe  s4tkdent  eMers  "^oP  ^ 
-ihe- program  \s  herminahed. 
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V 

Cl] 

[2] 

[3] 

[4] 

[5] 
CG] 

[7] 

[8] 
C9] 
[10] 

V 


VZ)i?IZ,I[D]V 

DRILL 

'MULTIPLY' 

X*-?20 

X 

Y*-?20 

Y 

ANSWERHl 
HANSWER=STOP)  /  0 
HANSWER  =  Xy~Y)  / 1 
'NO,  TRY  AGAIN' 
^6 


’TV\e  cjuurr^i  d^Ani-Hon  csf  T)(^1LL 


LINE  EDITING 


—  0^.1  lo 
d 


(low'mc  yoiA -ki  cKarva£, 
harcxcrers  c>n  c\ 


[8] 

[8] 

[9] 

Cl] 

Cl] 

C2] 

C6] 

C6] 

C7] 


VMILLC8L]21] 

■*-(ANSUER=XxY)/1 

/  ^ - 

(  A  NEWER  =XxY)/NEWPROB 
C1U7] 

'MULTIPLY ' 

8  <; - — — . 


cinarac-fer  1 

-Hven  V6CL4vpe'iir\  hev\/  characfeir  ^ 

^  *  MEWPfeOB 


NEWPR0Bj_' MULTIPLY  ' 
C6G7] 

ANSWERED 
6 

GUESS  :ANSWER-^U 
CIO]  -*GUESSy 


VDi?ILLCD]V 


in 


.ihi6  w;i(l  places  ^fcxces 

•^r\t  ‘mOLTiPL^* 

wWere  lo  r\€:w  cKxr<aci"ers 


y  DRILL 


Cl]^ 

*NEWPR0Bi 'MULTIPLY' 

C2] 

X^?20 

C3] 

X 

C4] 

Y-<r?  20 

C5] 

Y 

trr^ 

^UESSxANSWER^U 

C7] 

■*<^ANSWER=STOP)  /O 

C8] 

■*{ANSWER=Xy^Y) /NEWPROB 

C9] 

'NO,  TRY  AGAIN' 

CIO] 

■*GUESS 

nVi€  (general  -form  <jf  Ime  i^,  . 

V  pro^rann  r^afKe  h  Q  rv\  [] 

iMkere.  r\  »  Urve 

aryi  rA  s  nu.rviber  spacP6  -Atsa^^ 
prvarain  4o  pcsi+icrv 
S-ke  ball 

TKe  Aew  defin'i-Hon  cs^ 


LINE  LABELS 


KEwPftxjfi)  ar\<i  €oESS  ore  lihe  label's* 
tiAe  lotbeb  occ^  Aaifvves  -fellcw/e^  bvy  a  cebn 
a^d  an  expression  on  a  I  me  in  (x  prt>graim. 

'TWe'j  4alce  on  -IVve  value  of-lKe  I'm^  ifxumwer  , 
and  mav/  be  used  -fbr  convenience.  \a  branching . 
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DRILL 


MULTIPLY 

13 

9 

U: 

STOP 


NEW PROS 
VALUE  ERROR 
NEWPROB 

A 


Lire  labels  are  local  4o 

-WvdiL  I5  bay/e.  po  y^alac^S 

ccOfiple^+ion  of  4V\e  prograri- 


GUESS 

VALUE  ERROR 
GUESS 

A 


^iooL  rrav,  -fKerefore.  Sofelo  ase. 
fbe.  same  lire  labels  m  di-f^^erent 
pr60|rarws  w\4hou:b  'inTter-fcrei^ce . 
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l2pfty\gYy>ev\ts 


Va/€.  cV\ftv^t 

•H  dLUpl(M4  >^vl’V{oJfta'S<rn 
;^Kob\c.vvNS  0^  A^T^f€.vv^ 

VaJOA^. 


[1.1 

[11 

[21 


VDRILLllUH  - 

NEWPROB: 'MULTIPLY' 
NEWPROB:'  ' iX^?99 


<{hp{(k\/  D3 

df\Q.<i\Ae.  LQ 

delere  Une  C^^ 


';y'<-?99— — - —  cKa^v^e. 

- - I'li^^.  1143 

- dcieAri  line  [si 


(/Vli  ciH^r  r€ifv\oi.\i^  4Ke  -scirwe) 


(  pU-sU  ATTN) 

(piL->W  ATTKi  k-ev/) 


VMILL[[]1V 

V  DRILL 

[11  NEWPROB-.'  •  ;;sr-^?9  9 
[21  'x  ';Y-i-?99 

[31  4p’~' 

[4l  GUESS-.  AN  SWER->rU 
[51  -*{ANSWER=STOP)/Q 
[61  -*{ANSWER^X^Y) /NEWPROB 
[71  'NO,  TRY  AGAIN' 

[8l  -^GUESS 

V 


DRILL 


This  is  whod  TX^-ILL 
\c>c>fc5  l\ice 


;  it)  uL'seci  -fiir  ciApiA  — 

•fhai'  is.  wa.nr^+o  pnrcV  out 

numencaJl  and  litenii  data 
cTYi  line  same  \me.  ^  x 
(See,  (Ines  [j]  (xr\<i  [p-l  "Pi^iLL) 


42 
X  30 

1260  tAu\'V^y\'CA*h'(no  ^n>\>\erAS 

74  m  0.  Y\e>J  Wwuxt 

x_89 
□  : 

STOP 
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Fur4ker  +o  Di^lLL 


yURILLLOUl 
[0]  DRILL 
[0]  DRILL  iN;l-/ 

[1]  C.5]  N*-0 

[0.6]  NEWPROBiW^O 
[0.7]  n*-N+l 
[0.8]  -*(N>5)/END 
[0.9]  [1G6] 

[1]  NEWPROB:*  ^iX^?99 

1 1 1 1 1 1 1 1 

[1]  •  '  iX*-?99 

[  2  ]  [7.5]  l^*-W+ 1 

[7.6]  [8G8] 

[  8  ]  -^GUESS 
6 


Edi-fiiag  'Dft4LL4o  +fa^k  4Ke 

4t>"iral  Au.mlocr  of  pr?3bl€fv\s  ccmpl-d'^cl 
corrects!  (N)  And  4K€  number  c>f 
conseco^ve  vsirong  Answers  (w) . 


[8]  /GUESS 

[9]  'LATER.  GET  SOME  HELP  NOW'.' 

[10]  -VO 

[11]  END:  'THAT''S  ALL.'V 


yDRILLlUly 


[1] 

[2] 

[3] 

[4] 

[5] 

[6] 

[7] 

[8] 

[9] 

[10] 
[11] 
[12] 

[13] 

[14] 

[15] 

[16] 


DRILL ;NiW 
N^O  - 


NEWPROB :  T/i 
N-^N^l  - 


•0 


-0 


■*(N>5)/END 
'  '  iX->-?99 

'X  ' ;Y^?99 
4p  '  ~  * 

GUESS ’.ANSWER 
■*{ANSWER=STOP)/0 
■*(ANSWER=X>iY  ) /NEWPROB 
'NO,  TRY  AGAIN' 

W^W+1  - 

■>(.W<3) /GUESS  - - 

'LATER.  GET 
■vO 

END:  'THAT"S 


\nvh,a\»z^€  N,  Q. 

mC'hab'z.e  vJ  -Vt)  be  0 

wtfewevt't  N ,bu  1  y  _  v 

Wancln  4c>  4K€  (line 

orf4er  S  cc>rrcc4-  probl€rns 

■lrV\e  student '.s  /VNSWEie 


»f  wnm3, 

-  ^ncfevncvTi 


SOME  HELP  NOW'. 


ALL. 


inciCT»icTii  W  bt^  j- 
brancK  4o  fiOESS  (^line  [^3) 
a-fter  5  or  -Pewer  repeated 
iMrong  answers 


(y  4o  line  [143  After 
t-Ke  4*^  \^Jron^  answer) 
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DRILL 


erf  D^ILL 


53 

X  22 

U: 

1166 

20 

x_93 

□  : 

1860 

17 
X  71 

□  : 

177 

no,  TRY  AGAIN 

□  : 

1207 

18 
X  41 

□  : 

738 

60 
X  50 


pnoblcms  are  cqmplefM  ccrrec-Hy. 


DRILL 

57 

x_53 

□  : 

1551 

NO,  TRY  AGAIN 

□  : 

2521 

NO,  TRY  AGAIN 
U: 

2831 

NO,  TRY  AGAIN 

□  : 

NO,  TRY  AGAIN  l£r(Y\,ir\od'€S  flLUit'c>rY\crhccil aPlev^ 

L/lTEi?.  GET  SOME  HELP  NOWl  ^  OOnSeCuflVe  {jmSWCrS 

-fo  0^  p'^cblelrY^. 


£■7^1) 


INTERACTIVE  PROGRAMS 


1)666  li^^e  label  ENit>  have  valu.S'  novM  7 


V£)/?IIiSC  16G] 


[16]  EnD-.  'THAT'  'S  ALL. 


Wi+h  4ke6e 


[16] 

[17] 

[18] 
[19] 


EHD'.'CONGRATULATIONSl  WOULD  YOU  LIKE  5  MORE?' 

'  ENTER  Y  FOR  YES ,  N  FOR  NO .  ' 

^{'Y'ein)/1 

'O.K.  NO  HARD  FEELINGS.  SEE  YOU  NEXT  TIME.'V 


DRILL 


^X€caf  € 
prajvnam 


_ oA-erae-Ui^Q  “S'  nOkK^, 

4ry  V  c>r  Y^S  o'r  /\NVTH\NG 
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'^DRILL  C17D14] 


[17] 

'ENTER  Y  FOR  YES, 

//////  // 

[17] 

'ENTER  YES  OR  NO.' 

[18] 

[18U10] 

[18] 

'Y'  e\n)/l 

2/1 

[18] 

->(  'YES'=\n)/l 

[19] 

V 

N 


FOR 

/ 


W^Neh  you^iii^G  Gdi+  here^  [s  elided 
-fVvei^  yc)tL  4ype  ^(O  eS  o^irvi  =•  . 


DRILL 
90 

X  62 

U: 

90  X  62 
84 
X  39 

□  : 

84  X  39 
67 
><_51 

□  : 

67  X  51 
49 
X  69 

□  : 

X  X  y 

32 
x_18 

□  : 

y  X  y 

CONGRATULATIONSl  WOULD  YOU  LIKE  5  MORE? 

ENTER  YES  OR  NO 
NO 

LENGTH  ERROR  ^  i  ,, 

DRiLLiiQ'}  ■>( 'yffs*  =□)/!  TKis  error  ^(jepervds -tKe.  pro^rayv\ 

^  ^LeNfeTH  resu.l'Vs  becau-^G  4K^ 

(^ize.)  of  'Yes'  H  ixd  -Hve 

Sarv^fe  QLS  '  No'.) 

)si  _ —IK'S  S^a+e  lr\dlca4or  ccmmairvl 

DRILLC18]  *  'i^d(CQ.4e€?  4b<xt‘  proQram  T>^lUl-  is 


110  INTERACTIVE  PROGRAMS 


)SI 

DRILLLlBl 


N 


6 


SUSPENDED  PROGRAM 

(A.  proa(urY\  H  susperNdecI  e>(ecu.-Hoir\ 

Kai?  been  before  compie-Hon. 

"iKe  values  of  lecal  mv>n€5 
are  available^ 


W 


0 


GUESS 


8 


olM  It  1^6.  loib^ls  4do** 


NEWPROB 

2 


END 

16 


ImpoHarv-bly,  stASPended  proofrarv^ 
jryvav/  be  return ed  (odner —  perhaps 
offer  dc>rredl-ir\<j  €rror(s') — •  by 
a  brarei^  osorsrmnd^  €.(j.  -^1*8: 
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STATE  INDICATOR 


)SI 

DRILLLlQl  * 


)SI 

w 

VALUE  ERROR 
W 


No+e: 

o*f 


To  <-i  prij^v^am  -(Vom  (k 

CiA'V^'r  Hak'i"-  poiiO'HiaA  arccM^j 

(one  ecLcn  ‘suspen‘5ic>n  * )  , 


Uow  4Ke  'iirvdlca4or  emp+N^^ 


Oj\A  local  vanaloles  do  nof  Wxve 
vralues  available  . 


S+alc  IwiU'ca.'hrr  is  Vvelpfol 
-We  s-twtus  of  pfaqrarwi  as 


ioeep\v\4^  track 
ujou  exetv+e  iinevv\. 
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Cl] 

[2] 

[3] 

C4] 

C5] 

[6] 

C7] 

[8] 

[9] 

CIO] 

Cll] 

C12] 

C13] 

C14] 

Cl5] 

C16] 

C17] 

C18] 

C19] 


VDi?ILLCn]V 
V  DRILL \H\W 
N*-0 

NEWPROB  :W->-Q 
N^-N+l 

■*{H>5)/END 
*  X  *  ;  Y-(-?99 

4p  I  _  I 

GUESS  ‘.ANSWERED 
■^(ANSWER  =  STOP)/0 
■*(ANSWER=X^Y) /NEWPROB 
'NO,  TRY  AGAIN' 

{/+•{■/+! 

-^{W<2) /GUESS 

'LATER.  GET  SOME  HELP  NOW'.  ' 


TKe.  cujrrcK^  deft  ni Hon 

Cjf  T)R,\LL. 


-►o 

END:'  CONGRATULATIONS'.  WOULD  YOU  LIKE  5  MORE?' 
'ENTER  YES  OR  NO.' 

->(  'YES'  =?])/! 

'O.K.  NO  HARD  FEELINGS.  SEE  YOU  NEXT  TIME.' 


V 


VZ)i?ILLCl8] 


DRILL 


Di2.1ll  imv  be  eai<-e<4  ^ 
vecHfy  -tKe  problem 
cojjAeh  previous 


~\V>tv\  e.'jcetote  OV^\LL. 
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A  SIMPLE  GAME  PROGRAM 


[1]  'WELCOME  TO  THE  GAME  OF  LAST -OWE  LOSES'.'  LA6T-0ME-LOSE5  '\t)  0^. 

[2]  '•  cjf -iKe  ornd-Gm 

p]  ’DO  XOU  KNOW  THE  ROLES?’  ■, IfitfUA I  NIM 

C4]->-Llxi'y'£L!]  Ml 

[5]  RULES 

[6]  Ll’.'TO  START  WITH  THERE  ARE  '  ;//-h5+ ?io  ;  '  BOXES' 

[7]  (2x//)p'[J  ’ 

[8]  'WAHT  TO  GO  FIRST  OR  SECOHD?' 

C9J  ->L2xi'F'eH 
[101  L3:'MY  MO VE . ' 

[111  N^N-MMOVE 

[12]  (2x//)p'D  ' 

[13]  ■^Winx\N=l 

[14]  ■*LOSE^\N  =  Q 

[15]  L2:'Y0UR  MOVE.' 

[16]  N^N-PMOVE 

[17]  -vLOSE’x  i/'/=l 

[18]  -*[/I^7x  i//<0 

[19]  (2x7/)p'[]  ’ 

[20]  -*13 

[21]  WIN : ' I  WIN  THIS  TIME . ' 

[22]  ^L4 

[2  3]  LOSE '.'RATE  INK'.'.'.  YOU  WIN.' 

[24]  L^-.'TYPE  LOL  TO  PLAY  AGAIN.' 

V 


V  RULES 

[1] 

[2]  ' LAST-ONE-LOSES  IS  A  GAME  OF  TAKING  AWAY  BOXES.' 

[3]  'WHEN  IT  IS  YOUR  TURN,  YOU  MAY  TAKE  1  2  OR  3  BOXES.' 

[4]  'YOU  AND  THE  COMPUTER  WILL  TAKE  TURNS  TAKING  BOXES  AWAY' 

[5]  'UNTIL  THERE  IS  ONLY  ONE  BOX  LEFT.  WHOEVER  TAKES  THE' 

[6]  'LAS,T  OM  loses'.' 

[7] 

V 


Lot-  i6-4Ke  fv\diA 

Nffte  rwcW  li+eral  '  ’ 

tY\  liK.e6  0^1;  C’^3^ 

And  LmI  (k  d;<4er«n+ 

bnxi^cKvif^  -(^r(ncd'  i4j^ 

W,  DsJ.  Li^3,  e+c.,  and  4Ke 
6+  sub  -  programs . 


^ULFS  16  a.  6Lclo- prc^ram 
-  <2,k  plana^or  y  ) 


V  Z-^PMOVE 

[1]  z^u 

[2]  -»-0xiZ€i3 

[3]  'PLEASE  ENTER  A  1  2  OR  3' 

[4]  ->1 

V 


PMOVE  15  CK. 

SuJo-proaram  wKich  , 

(Xj(X£p‘V^ 

rvicbve..  Ncrfe.  4^^-  n  cKecxs 
■4obe6um  a  I  2_<5r  3> 


V  Z^MMOVE 
[1]  Z^Nl?3 

V 
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LOL 


A  o^cme- 


WELCOME  TO  THE  GAME  OF  LAST-ONE-LOSES I 

DO  YOU  KNOW  THE  RULES? 

NOPE 


LAST-ONE-LOSES  IS  A  GAME  OF  TAKING  AWAY  BOXES. 

WHEN  IT  IS  YOUR  TURN,  YOU  MAY  TAKE  1  2  OR  Z  BOXES. 

YOU  AND  THE  COMPUTER  WILL  TAKE  TURNS  TAKING  BOXES  AWAY 
UNTIL  THERE  IS  ONLY  ONE  BOX  LEFT.  WHOEVER  TAKES  THE 
LAST  ONE  LOS.S0: 

TO  START  WITH  THERE  ARE  13  BOXES 

□  □□□□□□□□□□□□ 

WANT  TO  GO  FIRST  OR  SECOND? 


FIRST 
YOUR  MOVE. 

U: 

2 

□  □□□□□□□□□□ 

MY  MOVE. 

U  □□□□□□  LI 

YOUR  MOVE. 

□  : 

3 

□  U  □  □  D 

MY  MOVE. 

□  □  □ 

YOUR  MOVE. 

□  : 

2 

RATFINKIM  YOU  WIN. 

TYPE  LOL  TO  PLAY  AGAIN. 

LOL 


a^air\. 


WELCOME  TO  THE  GAME  OF  LAST-ONE-LOSESl 


DO  YOU  KNOW  THE  RULES? 

YES 

TO  START  WITH  THERE  ARE  6  BOXES 

□  □□□□□ 

WANT  TO  GO  FIRST  OR  SECOND?  ^ 

SECOND  • 

MY  MOVE. 

n  □  □  □  □ 

YOUR  MOVE. 

0: 

1 

n  □  □  □ 

MY  MOVE. 

□ 

I  WIN  THIS  TIME. 

TYPE  LOL  TO  PLAY  AGAIN. 


INTERACTIVE  PROGRAMS 


A  SIMPLE  SIMULATION  PROGRAM 


M TEMPER 

[1]  EMOTION<-0 

[21  'HOW  DO  YOU  FEEL  ABOUT  ME?' 

[  3 1  ENTER  :  NEW-<^U 

[  4 1  EUO TIO  N<^NEW^EMO  TIO  N  i  2 

[51  (  EMO  TIO  //  >  1 0  )  /!M  D 

[61  -CENTER 

[71  MAD:'**'.?'.*'.?' 

V 


TEMPER 

HOW  DO  YOU  FEEL  ABOUT  ME? 

D: 

4 

□  : 

6 

□  : 

8 

**•91*19 


TEMPER 


TEMPe^iC  16  a  which 

(Y\ui\a\QS  —  (xVoelT  cr ud € Ivj  - 
an  cmo-Konal  r-cacHon . 


This  prc>ararvi  wi(l-- under 
certain  (i>r\di\'l--lDns  — 
mod  0+  \ic>u‘'  I 

^  bsf^ins  by  a^kina  v/6u4c 
express  hew  you  -feel -foward 
i4v.e  proi^ram.  Idurvibers  are  used 
-+0  'indiocd"€-4ke  s4ren(jHn  of 
Voar  feding6 :  loiy  Aumbers 
a.re  very  kind  or  lovina>, 

Kiah  namber5  hos-nl'^. 
o'r-(Vu6fra4in0. 

You  may  ENH'Eg,  a.  seijuence. 
of  NEinJ  rvumber^  —  c>ne  ai" 
a  ftme.  Each  number  causes 
EIWotiokJ  -fo  ba  changed 
according  4o o  simple 
eifVvo.Tiaxl  model: 
emotion  becomes  -fKe  wen 
value,  plus  c>Ae-  half  4Ke-. 
previous  Value  EMotionJ. 

If  EMcrrioN  ever  becomes 
Greater  -vhan  (o,  4i\e  proarann 
06^6  To  MAb  ^uikere  4Ke  . 
dompu+er's  vernacular  is 
prin+ed") 


Try  differend- sequences 
(^lilce,  *^1  E  d"  or  ^  ^  (o 

or  7  Z  7  or  Z  7  7,  efc-.) 
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TEMPER 


HOW  DO  YOU  FEEL  ABOUT  ME? 

□  : 


5 


□  : 


□  : 


U: 


U: 


□  : 


□  : 


5 


□  : 


5 


□  : 


Mc>yO  rVKCKYwl  ^*6  do 
H-Wis  pro^jrcim  COJr\ 


vyc>(A  4V\'i  nk- 

"dolerade.''  ? 
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REVIEW 


Interactive  programs  permit  you  to  enter  data  during  their  execution. 
In  APL,  the  quad  □  and  quote-quad  □  symbols  are  used  to  request  input — 
the  latter  accepting  only  literal  input. 

A  drill-and-practice  program  is  one  which  interacts  with  a  student 
in  order  to  improve  his  skills,  say  in  multiplication.  A  prototype  of  such  a 
program  would  give  directions,  present  problems,  request  the  student’s 
answers,  and  judge  the  answers  for  correctness.  Based  on  whether  an 
answer  is  right  or  wrong,  the  program  branches  and  gives  the  appropriate 
response. 

Line  editing  allows  you  to  change  single  characters  on  a  line  in  a 
program  and  is  helpful  in  refining  a  program  after  it  has  been  defined.  Line 
labels  are  particularly  convenient  when  a  program  is  to  undergo  further 
editing  changes.  A  line  label  is  local  to  a  program  and  takes  on  the  value 
of  the  line  number  with  which  it  is  currently  associated.  Hence,  even  after 
new  lines  have  been  inserted  or  deleted,  branching  commands  using  line 
labels  will  still  be  valid. 

When  a  program  is  executed  and  produces  an  error,  it  is  said  to  be 
“suspended.”  The  remainder  of  the  program — not  yet  completed — is  tem¬ 
porarily  held  in  abeyance.  By  checking  the  “state  indicator”  )SI ,  you  can 
find  out  where,  when,  and  how  many  suspensions  have  occurred.  Execution 
can  be  resumed  with  a  branch  command. 

A  game  is  ideal  for  writing  as  an  interactive  program,  especially 
one  in  which  a  player  competes  against  the  computer.  Strategies  for  mak¬ 
ing  the  computer’s  moves  can  be  programmed,  perhaps  the  simplest  of 
which  is  by  random  selection. 

A  simulation  is  an  approximation  of  some  real-world  phenomenon. 
Simulating  something  as  complex  as  human  behavior  is  extremely  chal¬ 
lenging,  although  simple  mathematical  models  can  be  expressed  easily 
in  APL. 
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THE  RESTRUCTURING  FUNCTION  P 


5  p  3 
3  3  3  3  3 


(■TV\i6  16  4K€  d^joAic  ia6€  dP  4K£  rho  6'yfy^be>l 

3  aenercclc6  an  arnxo  rf  5  3*5 

^  [  c^'Wec^c>r") 


5  p  4 
4  4  4  4  4 


5  4’s 


4  p  5  A"  5*s 

5  5  5  5 

3  p  5  3  5*5 

6enet"(xlly  -l-l^e  Pc>rrr^  i6‘.  (lytrucW^) /c>  (elemeinfH) 

7  p  8  9 
8  9  8  9  8  9  8 


^  p  ®  5  10  Vylh€.n  4K€r6  an£4oo'f'e\M 

4K6rY\  (xn+il  4Ke  -sfrojCptLr^. 

(S -Pilled  t4.p. 


5  p  8  9  10  11 
8  9  10  11  8 


4  p  8  9  10  11  12 
8  9  10  11 


U)i\erN  “fKere  are  4oo  rwaA^j  use 
oniv/  eri^uah  eieme^vts  -fo  -fill 
4Ke  sH-ocmre. 
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MATRICES 

Wi4h  -kfo  rvujry\ben5  c,r\  4Ke  '-4K€. 
(xrrcK\i  prodikC€L(\  is  4wc-difvi€K\6i6A<a{  • 

^  ^  fflL"ry\a4rix") 

^  ^  ^  ^  ■H€r(g>^  3  raws  aurvi  4  colarvins  o4 

4  3  p  8 

8  g  g  4  lr6\MS  3  Colum^\6  of  8's 

8  8  8 
8  8  8 


3  VT>vs;s  5  Columns  ^  2's 


0  0 
0  1 
1  0 
1  1 
0  0 


^  °  °  5  by  1  sWiAcAure.^ 

Os  and  is  as  6leirY\eh4s 
•ft  II  af  iv\a4rlx.j  rov^  bv^  row 

^r6.64'ir'iA.c4u,rmA  ol  vec4t>r'  irvlo  (X  rna4ti)C^ 


2  5  p  I  10 


2.  rows  5  columns 

of 

44^€  dl^rweir\4s  1  2  3  4  .  ^  •  10 
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More  examples  of  namencal  (Vv:^ces’, 

2  3  p  1  2 

12  1 
2  12 

Ncrfe.  4Kxf  "Hve  irows  Are, 
up  one  a4  o,  4i  me . 

3  3  p  1  0  0  0  CTV\is  \s  CilUec( 

"  fXNJ  -  wvaj^crr  " 
otidier) 


2  3  p  ill 


12  3 
4  5  6 


122  ARRAYS 


5  p  5  dasKes 

4  p  '.'  4  dc+s 


3  p  '*• 


3  S+otrS 


20  p 

□*□*□*□*□*□*□★□*□*□* 


fV  -k>+al  (jf  20  symboby  aHernor^i^ 
□s  ^s. 


7  p  'TOOT' 


5  p  'PHOTOGRAPHY' 


PHOTO 


3  p  'SEXTUPLE' 


A  4c4a.l  cjf  1  ^lemenfs^  r€pGa-Hr\(^ 

to^^eA  necessarv^ 

TUe  -(-1(^4  5  €l^rv\^rrf5 
■ftrs'V  3 


12  p  ' 


1 2  ^lervNeryts  in  4crVa\ 


!  ib  a.r\  c>versVr\kj&  ^yrv^bol 
Tv{>e.  *  bflLckspcxxc,  • 
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3  4  p  'FREEFROHDEBT' 


A  3  by  4  li-feral  rY\a4rix 


FREE 

FROM 

DEBT 


2  30  p  'AND  MILES  TO  GO  BEFORE  I  SLEEP' 


1  by  ^0 
30  ckxror^ers) 


'TO  BE  OR  NOT' 


in  or<Aer +0  -(nil 
6  loy  3  rv\a4nx 


L  3  4  p  '  GOODPLAYBILL' 
L 


L  \^>  ‘speciftcdi  4c  be  a. 
(V\cdriK  3  rows  AiM 
4  colons 


pi 


3  4 


p 


L  (•rvLor\OLclic)  (jWes  4be  ^lAclure. 
of  L—  2)  rows,  4  oolumhs 


THE  RAVEL  FUNCTION  , 

GOODPLAYBILL  ,  >. 

^  eorweH-s  ^  iv\a4rW  ^or  any  array ) 
'io4o  a  Nrec4or 
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/  ^  3  4  p 

M 

12  3  4 

5  6  7  8 

9  10  11  12 

p// 

3  4 

12345678 

P  ,M 


M  +  1 

2  3  4  5 

6  7  8  9 

10  11  12  13 

W  X  3 


(,M)  -  (x/p" 


FUNCTIONS  ON  ARRAYS 

tA  \t>  (X  fy\a4ri 


i-1-6  S+rujCL-fur^  'l5  3  by  4^ 


9  10  11  12 


elerv3^r\4-s 


ar-€ 


ow/  rvuxif\y  —  464al 


Yoo-  rm.y  p^r^oron  -ftmc4ions 
on  M  in  on  £l£ment-by- 
fashion. 


Eada  elerYven4  M  4iry\e6  3 


i)p/'^ 
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Try  ■fUhch.ons 


MATRIX  ^  p  9  5  0  6  2  4  11  3  16  8  20  7 

MATRIX 


pMATRIX 


.MATRIX 


MATRIX  -  2 


6  r  MATRIX 


MATRIX  =  3 


3  e  MATRIX 


MATRIX  €  3 
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ARRAY  INDEXING 


□  MATRIX  *■ 

9  5  0  6 

2  4  11  3 
16  8  20  7 

MATRIXil  ;3] 

11 

UATRIXil ;4] 

6 

MATRIXl  3  ;2] 


MATRIXi  1  ;  ] 
9  5  0  6 

MATRIXL  ;3] 
0  11  20 

MATRIXL3il 


MATRIXL  ;2] 


34p950624113168207 


Specifying 

grid 

iiisplayini^ 

HhT(i[K 


kde/in(j4We  2*^  row^  gcIuiymti  of  /VlAritlX 


TVie  4^  column  el€m.en+ 


IKfi  row^  2*^  Column  clemenf 


Tke  How  (^arvci  ail  columns^ 


Tkc  column  (^and  all  row^>) 

<3^  Yecfor) 


TV\£  3j'cd  row 


■five  2-*^  column 
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5  6 
4  3 
8  7 


liATRIXl\2  4] 


IKfi-  cc>iuifvin^ 


MATRIXL2  3;2  4]  Ihe,  1^-  and  3-"*  rc>\i^  el^men+s 

4  3  of  4Ke  2*^  and  4^  columns 

8  7 


MATRIXL2i‘*  2  3.1 


> 


2.'^-^  4^ )  2*^  uhd  3*^  columns 


MATRIXiZ  2  3; 31 


and  3“^  rows  of  5 column 


Qhallen^e’. 

MATRIXLl  2  3;1  2  3l  =y^/42’.^JJ[  2  ;  2  1. 


ghaltcn^e:- 

J  -<-  p MATRIX 
MATRIXLllll ;I[2ll 


'TV\€r4  will  bc.^  Gtnswars 
4o  *+^1^3 —  in  a  2>  bv  3 
ma+rU 


A//12’;?JX[  i\lL2ll=MATEIXLilLi:i  ;1 
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(2,ET>DCriOM  WITH 


U  MAT  2  3  p  \ 

3 

6 

+  /[1]  MAT 
9 

+/[2]  MAT 
5 

(+//Mr)  =  +  /[2]//^2’ 


+ /MAT 

(+/MAT)  =  +  /Li:\MAT 


+  /MAT 

+/+/MAT 

+  / ,MAT 


Mat  Ko^  +WIO  dtmensjons 
(^rows  ix\r»ci  coiomns^ 


TKe  *5urv\- reduc-Hoin  4Ke  ■first 
of’  MAT 

(oLddirK^  down  -+Ke  CdUmns) 


'TVv£  5uJYl“r^diuLc4idn  erf  4K^  Second 
di^vve-AViok^  of  MAT 
(addmi^  across  rows) 


+  / MAT  is  an  abbrcviat^el  way 
of  writing  +/[a3MAT 


(lV\e  last  difv^ension  is  anders+ood) 

H-/  is  -^>6  aWV)fevSaf>'cm  -ferr  +/L0 
(oddiwr^  \/t.r-h*caliA^) 

(TV\e  -first  'd»yvNeirNS^(jn  'S  uvxderstooa) 
(VtUivui  op  aXX  tine  dewyevrfe 
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MAT 


12  3 
4  5  6 


x/MAT 

4  10  18 


IVxe  o-f  HAT 


x/MAT 


-/MAT 


re  nee-  redujc.4ion 


-/MAT 


2  5 


(i-1-b)  ,  (  4-S-i.) 


(.  +  /  +  /MAT)  =  -/-/MAT 


(1x3x5v2x4x6)  =  i  / ,MAT 
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THf  COMPltES^IcN  FOMCTIONJ  ^PPL\£T>  To 


010  /  33pi9 


4  5  6 


C>  1  O  ls>  caoApr€S^)^J 
«tVve  rovMS  (4Ke 
dlrvv.erxsiorx'^ 


e>  6  \t  6onr\pr(e6Sed  oia 

4k€,  Cclurv\r\6  (4V\e  las+ 
dlry\e/\6i6^\) 


□  4-  /i  ^  4  4  p  '  SOLDOUIOFINETOES' 


SOLD 

OHIO 

FINE 

TOES 


L  *■  1  1  0  0 
Z  1  0  1  0 


L^M 


^ompre^S  4Ke.  rows 


Compress  -Hoe  colu.mn^, 
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U  -f  MATE  3  4  p  'JIBEFORESAIL' 


lake  I'  ond  l)rap  'Ir 
applied  +0  rAaVicef)'. 


JIBE 

FORE 

SAIL 


f\  l\+eral  rmlrix^  MATE 


^  ^  ^  Take  4Kg  -Pirsl  2  rows  aM 

JIB  a4^J2.  5  COfuriAl^S- 

FOR 


“2  "3  +  MATE  Take,  4Ke.  lask  2.  rows  and 

■4Ke  la-td"  8  Golujrv\rs. 

AIL 


3  1  f  MATE 


Take  -kke  ^ 

4Ke  last  1  toluLmia. 


2  3  4-  MATE 


L 


T>rap  tWe  'fiVst  2  rows  ard 
IKe  -First  3  eclurv\ns. 


2  1+  /MTff 


Drap  "the  -ftrsi'  2  rows  aiad 
-|Vve,  -PirsF  1  0olurwK\. 
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□  ^  14 

14 


SUMMARY  OF  APL  DATA  STRUCTURES 

S  \b  (X  ^Scalar  C^o  clir^ension) 


□  ■f-7-^2357  11  13 
2  3  5  7  11  13 


V  i6  O.  ^6r\^  di<w£K\-s'(on'^ 


12  3  4 

5  6  7  8 

9  10  11  12 


1 12 


/V\  CK  rv^xiirix  (4u)o-diiifv\eirt6i6rvaQ 


□  ■f-^^324p7 

Till 
7  7  7  7 


H  oxf(X\J  (4hree-dirv\eAViomO 


7  7  7  7 
7  7  7  7 

7  7  7  7 
7  7  7  7 


4-  oxrasjS 
(xrrasf^ 

al lowed  doo 
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pH 

3  2  4 

pM 

3  4 

PV 

6 

pS 

^ - 


PP^ 

3 

p  p  M 

2 

PP  F 

1 

PpS 

0 


o-f  gyv  arravj  l6  'ls^ac4a^e" 

H  -ha^  2)  platans  erf  2  TOW'S  4GolurYiias 


M  Vvx6  3  rowsay\di  4  columns 


V  Kos  ^  cl-emenH  ^  co(umt^s) 


8  Ka6  no  S’H'ixd'ur^. 


^bianic  line) 


PP  c4  an  array  15  rank-'^ 

(hovvi  many  dimen^i'orys) 

H  lo  a  ^-OirrcKsj 


M  16  a  2-  arro-v^  (umlrix') 


\f  (K  1-arravy  ^vec-lor) 


S  a  0- array  (scalar) 
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PROGRAMS  USING  ARRAYS 


ALPHABET  ^  * ABCDEFGHIJKLMNOPQRS 


V/17  RANDOM  LETTERS 
Cl]  J*-o 

[2]  ALPHABET'i?LETTERSfi2^'] 

C  3  ]  J  ■*-J  + 1 

[4]  ■*U<N)/2y 


UVWXYZ  * 

^ArroDoAA  16  (K  proaram 
vohich  pnK\+5  M  rairv<iofv\ly 

aer\sra+ed  ^'wcrdV'  voi'Vh 
a  cerVa'^n  nujwber  of  LETTE/?s. 

LFTTt^S  p  Vo  aer\era+e5? 
a»^  array  o(-  Vo' ^  Which 
are  U6ed  0.6  roiadbrn 

mdic^is  of  ■+Ke  alphabet. 
j'  i6  0L  local  irome  w.6ed 
Afe  a>uiAt  up  'to  M . 


7  RANDOM  3 


LGC 

DZT 

KLN 

DKD 

NSA 


'i  randomly  Qcr\erof€d 
" words'' 


3  RANDOM  7 


3  rardcKVN 

le-Hcr  words'' 


i4LPff>53£’rC  3  7  p  26] 

BNQDZUP 

RVBMATT 

KJCJEXL 


•  rvu^re  d.irecrh  way  -V-o  , 
rodacE  4K€  ^orwe  resalT^ 
61  Ag  a  ry\aVriK  ‘index. 
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7  SPELLING 
Cl]  ' SPELL' \Y^?Q 

[  2  ]  x^\n 

[3]  ^OxiO  =  pA' 

[4]  •>(  A/f^[y;]  =  5t;^)/i 

[5]  'THE  CORRECT  SPELLING  IS 

[6]  -^1 
V 


'Proaraw  <drUl5  <k. 

‘ifujde/Y+'  m  5p^Uin0  4ive  rvu.m.bers 
I  4Urc>u^K  "8  ^pre-sen-l-ed  rai'^damlv/), 


'  ;WLY;1 


f/  t-  8  5 


SPELLING 


'ONE  TWO  THREEFOUR  FIVE  SIX  SEVENEIGHT' 

W  0^  rYvodriv  oi  4Vv€, 

Corro-dr  ^j?6H\KV06 


SPELL  7 


SEVEN 
SPELL  5 
FIVE 
SPELL  8 
ATE 

THE  CORRECT  SPELLING  IS  EIGHT 

SPELL  1 

UNITY 

THE  CORRECT  SPELLING  IS  ONE 

SPELL  5 

FIVE 

SPELL  4 

FORE 

THE  CORRECT  SPELLING  IS  FOUR 

SPELL  4 

FOURTEEN 

THE  CORRECT  SPELLING  IS  FOUR 

— - +irv\«yAm. 


SPELL  8 
EIGHTY 
SPELL  6 


En+er  and  4Ke  fro^ram  -s^s. 
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^MDRILL  N 


[1] 

Y-^?N 

[2] 

I[l];*  X  •;7[2] 

[3] 

'  STOP*  €A^U 

[4] 

■*\A=y^/Y 

[5] 

'DUMMY.  LOOK:' 

[6] 

Yp'  o' 

[7] 

'NOW  TRY  IT. ' 

[8] 

-^TQ  =  x/r 

[9] 

'YOU  BLEW  IT. ' 

[10] 

'THE  ANSWER  IS  ';x/J 

[11] 

->17 

MDRILL  15  10 

9x3 

0: 

29 

DUMMY.  LOOK: 

o  o  o 
o  o  o 
o  o  o 
o  o  o 
o  o  o 
o  o  o 
o  o  o 
o  o  o 
o  o  o 


NOW  TRY  IT. 

□  : 

27 

12  X  9 

□  : 

108 

3x7 

□  : 

37 

DUMMY.  LOOK: 


ffoof(xn\  (K 

dirill  in  mu<l-Hpl^ca<^n 

wih.  No+e  l‘i0£ 

[(o']  prirds  (k  fmdrU  oi  5mal\ 

e\rd€5. 


15  ar\d  10  are  (inr\i-|-5 -for 

rarxdom  numbers 


•Here's  a  hijlt  [c{  fmin'x  cf  ^mal\  circles^ 


o  o  o  o  o  o  o 
O  O  O  O  O  O  o 

NOW  TRY  IT. 

2  2  0^^  Hu)c>  chq.ACGS  before 

YOU  BLEW  IT.  YOiA^Gire  Hdcl  ornsiM^- 

THE  ANSWER  IS  21  ' 

1x4 

□  : 

4 

7x5 
□  : 

'STOP* 

proararvv^  arc  OitHe  6iAiilar4ooAes 
fir^  deftr\ea  by  fcennc4^a  Ikr^on  m  Kis  paper 
"T^ve  ^le  cjf  Qirwpwters  In  TeacUm^",  Oueen's 
(Miversi+Yj  1%^. 
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REVIEW 


APL  treats  arrays  as  whole  entities.  Any  array — literal  or  numerical 
— may  be  restructured  into  another  array  (of  the  same  type)  in  any  speci¬ 
fied  size.  Many  APL  functions,  such  as+-x^^rLI  =  ^<>S2: 
*  A  V  ~  extend  to  arrays;  that  is,  the  function  applies  to  each  element 
of  the  array,  and  the  result  is  an  array  of  the  same  size. 

The  term  “array”  includes  scalars  (single  elements),  vectors  (one¬ 
dimensional  arrays),  matrices  (two-dimensional  arrays),  3-arrays,  4-arrays, 
etc.  In  APL  the  structure  of  arrays  is  always  rectangular,  and  elements  fill 
up  the  latter  dimensions  of  the  structure  first.  For  matrices,  this  amounts  to 
filling  up  row-by-row.  Data  structures  in  APL  are  related — as  seen  by  the 
use  of  PP,  the  “rank”  of  an  array. 

The  use  of  arrays-as-wholes  greatly  facilitates  programming.  Many 
programmers  claim  that  APL  array-handling  capabilities  make  problem¬ 
solving  considerably  easier. 
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THE  REVERSAL  FUNCTION >  (MONADIC) 


V  ^  ^EVIL' 
4)  7 

LIVE 


i  16  4U£  reversal  -funcVioio 

fW€di  by  Oo-rud  \') 

rever^e-s  -4ve  cff  o.  vector. 


ct>  'NOSLIW' 


Flip  (t. 


4)  '  DOCEOTEIDISSENTAFASTEEVERPREVENTSAFATEESSIDIETOECOD 


(one.  cjf -^Ke  worlds  lon(jC6rl 


□  3  4  p  i  12 

12  3  4 

5  6  7  8 

9  10  11  12 


4)  M 

4  3  2  1 

8  7  6  5 

12  11  10  9 


e  M 


9  10  11  12 
5  6  7  8 

12  3  4 


ONierstHW-e 
O  ond  — 


4>eM 


^  CK.  fvvci4nx 


^acV\  row  \s  reversed 

(sawie  as 

Eoudn  coloLmn  iS  reversed 

(saw\e  as 

j^eversctls  \v\  di^vvensions 


Nde:  tVie 

4> 

■e- 


st^yv\V3o\  sV^ows  "rtie  avis  of  reversal: 
(reversai  abow-+  a  v/erKcrJ  avis) 

(reversal  oWr  a  V\crriz£tYi^  avis) 
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THE  TRANSPOSE  FUNCTION  ^  (MONADIC) 


„  ^  o\/erstnk.e 

M 

o  AiM  \ 

12  3  4 

5  6  7  8 

9  10  11  12 


U  ^  M 

2  6  10  EocJk  raw  ‘16  4nxn5po5ed  4d  a  cduMn, 

3  7  11  cii^d  each  cc^umn  loecarvidS  ol'hdw. 

4  8  12 


(pM)  =  (|>p/^ 


TVie  ciifv\eni)i6n6  of  M  are,  Gc/v^  paired 
voidh  dhe.  reversed  dimensicns  of  M. 


<?//  -I-  4  3p  'FOEANDICELEN' 

Ticrra  Oi  4  i>  fv>Ctfn<  (^KJ)  arid  4keia 
print  4lne  elerwem+s  tmnsposed  so 
41^^^  eoclo  rov^  a  C6(urv\A  and  v'lce 
ve'Tsa . 


^Jo+c■.  -VW  SH^bol  sWs  tW  ftyli  of  +fa«s<)osit;<jn; 

(tra»>spoie  aW+  -W^e  wiolw 
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THE  ROTATION  FUNCTION  <i>  (DYADIC) 

i4  ■«-  3 

B  ■«-  'TEBFLAT'  "Fcr  veclt)r5*. 

l&cyVa'l'ed  3  ^l^rKcrrfs  41^6  -(Vc>nrV  o4 

^  ^  ^  ^  eleiwerxts  of  b  4o  4V\e  toacld 

FLATTEN 


(pi?)  =  p5 


0ompar«2,  4ke  3iiY\en6i6r\  cyf  4V\e  R 

volfVx  -^Ke.  ^ 


A/i?  =  (/I 


1 


pS)  <j>  B 


/A  clac  40  4ke.  u,s^  o^ 

vol-fK  r<4^crh<^n 


1  <1>  'TOPS* 
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M 


12  3  4 

5  6  7  8 

9  10  11  12 


3  ({>  M 

4  12  3 

8  5  6  7 

12  9  10  11 


&riaJion  W0i“k5  ‘Sinailarlv^  vvA-fh 
ifmirices ; 

3  cc>lamn5  ra^oc^ed  <2ach  row 

(-frorvf  +t>  boLck) 


2  ^  M 

tcMo^  2  co(ttiv\h6  -fr-orw  4V\€  •Aren't' 
gf  ea£^^\  r<^w  to  ihe  back 


2  e  M 

5  6  7  8 

9  10  11  12 
12  3  4 


r^w5  ro+aled -from  cacK  flo(u.iv\rv 
(bcrHc>m4£>  4t>p) 


1  &  M 


1l  vtow  '^Srz>ro  4k€  4ti  4k€. 

Hop  ^ocK  colitivin 


Cka\leK\i 


2  (j)  1 


^  5  2  p  'UPCLEESAAP^ 
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M 


12  3  4 

5  6  7  8 

9  10  11  12 


df 


wNouti  rotate  di‘f‘(erev>t 

A>f6efe«t 


Ov/vv\)oe^3 

HOvfS 

or 

CJo\l/vv^v^s  . 


1  2  3  4>  A/ 

2  3  4  1 

7  8  5  6 

12  9  10  11 


^O'^Ort'e 


1  -(rorYv  4Ke-(tr5f’  ro\hj 

2  -Prom  tKe  se.c6rvd  row 

3  -fVom  -tke  -jUini  rovs/ 


3  2  1  1  ©  A/ 

1  10  11  8 
5  2  3  12 

9  6  7  4 


2  3  4>  2  5p  'LESTA' 


3  *A'c>rY\ 'H'-'a coliimn 
2<Prt>(YN4U€  COIOMA 

- 1  -from  4Ke  coIiuyiA 

4o  4op) 

\  -prom  -fotAr+W  C£>\uyv\n 
(top  +t>  bo-Hwn’^ 
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THE  TRANSPOSE  FUNCTION  (DYADIC) 

□  L  5  8  p  MPL  ’ 

APL  APL 
APL  APL 
APL  APL 
APL  APL 
APL  APL 


[}•*■  h  2  1  ^  L 


AAAAA 

PPPPP 

LLLLL 

AAAAA 

PPPPP 

LLLLL 


{iStD  =  2  1  <5  L 

11111 

11111 

11111 

11111 

11111 

11111 

11111 

11111 


(6)L)  =  2  1  <9  i 


(pL)  =  (pL)C2  1] 


Norrmi  ^fa^Ybpos^ 

\Mi+K  4Ke  d\(V\en6i6r\^ 


i.  1  )S(  eijcu\ral6inrt' 

dt>  (rYNoW-Dc) 
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21<S?D«<-SQ-«-44p  il6 


5  6  7  8 

9  10  11  12 
13  14  15  16  _ I 

1  5  9  13 

2  6  10  14 

3  7  11  15 

4  8  12  16 


/V  fV\a4riK  S  (3l 

lit) 


D  1  1  ^  SQ 

1  6  11  16 


i  1  ^ 

>+5  ciiaynai 


I  -t-  ?4 

Dill  =  SQLI;I1 


- > 


ipD)  =  l/pSQ 


1  1  3  3  p  '  lESNBAACM' 


lV\e  d'la^Dirxal  4Ul6  fVicrlTiK 
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OF  ARR/VV  FUNCTIONS 


D  ^  LM  2 


<pLM 


<?LM 


^&LM 


<S(LM 


^<S(LM 


<!)«{<)>  LW 


1  0  4)  iA/ 


0  1  e  LM 


1  1  is?  LM 


P  ’  o  *0» ' 
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OUTER  PRODUCT  °.f 

15  u-^od  4o  cJr£Oc\~^ 
arra.\i5  P^'f'’fornr^mQ  adwcufic- 
-PaK\di6n  cm  ever\/  poar  of  leiemen'ts 
on  Hd\£.  and  no^lrf. 


X  +  Y 

LENGTH  ERROR 
Z  +  y 

A 


Nlonmal  el€nrven*t'~bv/-^l€i(V\.en'i"  addition  nol"  possible 
because  vec-bTs  X  and  Y  ox^  of  differcn'r* 
len^jHvs . 


2  3  4  5  6 

3  4  5  6  7 

4  5  6  7  8 

5  6  7  8  9 


X  o.x  Y 


OuVer  pftduiLt  cjtveif  all  -fUe  siows 
eaciA  el.evvieni'  efr  x  wi+K  each 

^l€)iV\.6n't'  c»f  Y  —  annojA^fed  In  a 
dtxble  (ry\ah^)(). 


Ofker  dyadic. “Punchohs  may  be  u.S'ed  K)i'^ 
ftaker  prodond", 


X 


f 


Fill  in  4his  table*. 


y _ 

3  A  5- 


2 


3 

i 


X  o,=  Y 

/  2  3  ^  5- 

1  0  0  0  0 

0  1  0  0  0  * 

(i--06=2)0=i)6=i)(t=5) 

0  0  1  0  0  2 

n  n  n  i  A 

(l-O  (ui)(l=3)(t^Ar)  (2.-S) 

u  u  u  1  u 

3 

(s-O  (i--2)  Ci-3)(i-^)Ci^'5) 

4 

(4’0  (4-^^)  C4=S)(4-4)  (4--5) 

1 
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X 

12  3  4 


y 

1  2  3  4  5 


"TKe.  Oj^v\e>ro\  -form  cjf  otci-er  pf^dudr 


16 


(  array)  ® .  -P  (arrAsj  ) 


wWev'e,  -f  any  d>iad'ic  -Puncfion 
y^jhuW  e}c4€K\d6  ”hD  array  6. 

(4-x-7^if-<^>>y:Lri  e+-c.) 


y  o .  *  y 

11111 

2  4  8  16  32 

3  9  27  81  243 

^  16  81  256  1024 


Mo+e  4Ue  4ke 

n96u.tf  Is  (/2X),^V 


py  o.*  y 


y  o.L  y 

■> 


y  ».<  y 


L 

1 

2 


13  4 


3 

4 


5 


0  1111 
0  0  111 
0  0  0  1  1 
0  0  0  0  1 
0  0  0  0  0 


1 

2 

3 

4 

S' 

1 

© 

1 

1 

1 

» 

2 

o 

o 

1 

1 

1 

3 

o 

0 

o 

1 

1 

4 

0 

c* 

Q> 

O 

1 

5 

1  ^ 

o 

C> 

c> 

o 
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( I  10 )  0.x  I  10 


□PP  ^  4 


(ilO)  o ,*  1  2  .5 


1 

1 

1 

2 

4 

1.414 

3 

9 

1.732 

4 

16 

2 

5 

25 

2.236 

6 

36 

2 .449 

7 

49 

2.646 

8 

64 

2.828 

9 

81 

3 

10 

100 

3.162 

□PP  ^10 


pUca'Ho  n  4abl'e. 
Preos^onn'' 

ft  variable  4^  cbaivj^C-. 

44\e  aamb^r  c£  $\<jn‘ifiaxKv4  dic^iis 
\a  ocdptCt  4o  4  . 

(^Prc.v’Votcsl'y  H" 

l^e.  )c\’\;^<X€TS  446^^  I  40  4k€ir 
Souaret  ciirxd  "SOuCi'^^  \rDot5 


Chamifxc^'M^  print) r>c|  precision 

bade  4o  (0 


□  VEGETABLE  ^  'FEARS'  o  , MPPPP5’ 

10  0  111 
11110  1 
0  11111 
111111 
111110 


{y  /-'VEGETABLE)  /  'PEARS' 
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INNER  PRODUCT  f.g 


I  ni^er  p>fodudr  ii>  an  aperocHan  \mKicK 

r^dt4xe,s  arrays  'Psj  a(3plv/(na  4wo 
d'^oAlc  •Pu.ncKc>nt> . 

^  °  ^  ‘  ^  ^  TKe.  ncfoKon  \t)  \ 

(arroLv/) Carray) 

VMKera  -P  and  9  aie  dyadic-  4Unchans 
voKich  exdChd  -fo  (Xcro\f^ . 

^  3  2  vedt>ns  ‘lorver/Drodud".  it>  4ke. 

9aifv\.6-  06  4n€,  •PtrtA'  ■Attnc'HoK^  ircducod 
CNB'C  “fKc  ire^u.li’  cs^  6€C6ncl  "fuv^ct'ioy) 


10  4  5 

/•/-<-  3  2  p  3  6 

I'  +.X  /./ 


60  84 


(  +  /7  X  /./[;!]), 


5  12 


For  a  vecbr  and  a  madrijc  inner 
produci*  16  -dke  -P  rcdtccecl  cve-ir 
4Ke  reSaif*  of  -Hie  6^nd  g  applied  dT> 
-Hve  vei^4or  and  each  colarwn  of  4ke 


3 

s 

1 

+  .  X 

2 

4  5 

(oO 

34  — 

60x33  +  5-x2) 


(ie>  ^(o)  +  (4  ><0  +  ^5^4) 


■N 


+/F  X  M[ ;2J 


y  X .  -  A/ 
21  12 


dyadic. "Pi/tncfio ns  used 
"in  inner  prodcAcf*: 


F  L  .+  ^ 


-  9^  5 


Mvn\YY\UYV)  SOVnaS 


V  +.r  M 


Sums 


of 


vv\ax”  vYiums 
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foir  a  rmlrix  a.v\d  a  vec^c>r  inr\cr 
Produ^x  I5  4Ke  -Ptrs*^  '^ndnc>v\ 

^33pio)v.Aooi  (3ver  -Ha£  C)-f  ecxcK  row 

cJT  -fne  rm-TTix  applied  wi4H  4ivil  ^ 
S€^nd  4U<^c'he>n  “fe  sAecrfor. 


o 
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□  ■^-A/-t-3  4p  il2 


12  3  4 

5  6  7  8 

9  10  11  12 


□  -<-  /!/  *f-  4 

1  2  3  4  5 

6  7  8  9  10 

11  12  13  14  15 

16  17  18  19  20 


;  20 


for  “fv^o  {v\cxhrlce^^  inner  pr^di^  ‘i6  “fKe 
-ftrs't'-Puu\cH6r\  rediLcedl  cver"H^  resu.H's 
erf  ggeh  ro^  "fV\£  l6r+'  X 

GippUed  w*itVn  4Ke,  ■^Gcen.ci  -fitncHoin  +0 
egcK  coiumA  of  4he  rigHf  rwrifix . 

(This  is  the  caYXv/^nfional 

matri  X  prodiu  c+  “ 

\n  linear  algebra) 


110  120  130  140  150 
246  272  298  324  350 
382  424  466  508  550 


A  ^  by  4  rvxofrix  \rir\er  prc^duiT 
wifK  a  4  by  5"  matrix 


pR 


fbe  resulf  is  a  5  by  6"  matrix 


3  5 


Cl+p/V)  ,  l^pN 


w 

1  S 


-fbe  4w6  ryxiMces  musl-  be 
Yon-farrmble'^  here. 


+  /WC1;]  X  ;1] 


/?C2;3:  =  +//./C2;]  x  /7C;3] 


-ftrst  elefv^eM-  cf  4Ke  resulf 

ravs/y  l^calurvin) 

Ancf her  element  <y(^  4he  r^iult 
(■second  rovy^  third  column) 


RL  ;  5]  =  (  +  //./[  1 ;]  x/7[  ;5]  )  ,  (  +  /;/[  2  ;  ]x;!/[  55])  ,  +  /mi  3  ;]x/i?[  ;5] 


The  -fttfK  column  of  4ke 
resulf 
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□  •«-P-«-23p612305 


0  M  •*-  3  k  p  i  12 


0  Q  P  +  .X  M 


1 

z 

3 

»+ 

S’ 

G 

7 

+.X 

10 

U 

12 

0  1  2. 

0 

0 

0 

D 

5  O  S 

□ 

□ 

/ 

□ 

1 

+/3  0  5x 
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Try  4h»5  ‘inner  prccliA^ 


Wha4  i6  i-fs  ? 


Vflfvi  cav>  qe,t  Q 
o4  4^ IS  +cible. 

C  '  ^  ake^A^ 

doY>€,) 


7  II 


□  ■«-^-<-(2  34p  i24)  +.L  4  2  3  p  \24 


10 

10 

10 

10 

10 

10 

22 

23 

24 

25 

26 

26 

31 

33 

35 

37 

38 

39 

37 

40 

43 

45 

47 

49 

40 

44 

47 

50 

53 

56 

40 

44 

48 

52 

56 

60 

Inner  pn:ydu£.+ 


nni“H^  ^-arra\/6 


'Tke  5iz-€.  of  resc/dr 

2  3  2  3 


ppB.  4-aiifVv6n6ioir\al 

4 
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CATENATION  OF  ARRAYS  , 


□  3  4  p  l  1 2 


M  ,  0 

2  3  4  0 

6  7  8  0 

10  11  12  0 


0  ,  M 


Ca-irena-Hna  a  -Single,  deifw^n’t  4d 

0,  fVva^-nK' 

( dlt(vveA6t6n  ^  4he- 
ele^vient  e)C-Vends  ’m+D  a 
e.oluMn') 

Cot-e^a'l'e^  0  ^  ^ 


M 


ONiers'Vnkc 
,  and  " 


0 


2  3  4 

6  7  8 

10  11  12 

0  0  0 


0  ■;  M 


{}a4ena*km  a  single  4r> 

CK  tm4rix  • 

(  -ftr^VdimeiosiaKN,  4Ke 

ex4€h.di)  irvfD  ^ 

0  on4o  dKc  4o()  o-f  M 


elervv€iMs> 

raw) 

CotVena-Ve. 
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Kera  <x»ne. 

Gcif€iAa'l-ed.  ^ 


w  -  "1  "2  "3  "4  iKete  "feu-r  elcmerri's  (X^a 

A6  a  irov^/ 

5  6  7  8  (4i\e  di^v\.enMon) 

9  10  11  12 

1  "2  “3  4 


M  ,  M 

12341234 
56785678 
9  10  11  12  9  10  11  12 


M.a4n>^  M  cA-iemi'ed  4t>  M 

{Wo^e.4KaL4'4l^e.y  (xre.  con^orm^bU-) 


p  M  ,  M 


3  8 


IKg-  n 


•e^ixl4iir\^ 


hevv  -6*1  re- 


Ccc^^€.m4G  M  4o  M  aloh^ 

dliJwGn6(c»n 


Q  M  -,  M 


6  4 


K^W  irc>WS. 
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M  .  [  .  5  ]  M 

12  3  4 

5  6  7  8 

9  10  11  12 

12  3  4 

5  6  7  8 

9  10  11  12 


P  'V  ,  [  .  5  ]  M 

2  3  4 


THE  LAMINATION  FUNCTION  ,  [I] 

h  ^  bcxf  0.  4W4ioru.l 

$uk)l>cnpT. 

Laml  i^a4\6n  ctiaa^et)  a  AewjclifKeni>ior\ 
'in  4Ke. 'nc^i^l-F  by 

a'rra.y-s . 

(ike  Arrays  fv\u.j4  be  coi^formdble) 
^eant  crea.+^  a  nevs/ 

before ‘+Ke 


//  ,[2.5]  11 

1  1 

2  2 

3  3 

4  4 


[i-s]  M€Qr\5  cre^  a.  K\€w  dlfHewsion 
a-f+er  4K€  2^  dirwen^ioh 


5  5 

6  6 

7  7 

8  8 

9  9 

10  10 
11  11 
12  12 


P  M  ,[2.5]  M 


3  4  2 


TUe  *5iz.e  dyf  4Vie  rve\Aj  arrav^ 


f-  2  3  5  7 
F  , [ . 5]  F 


Lammalirv^  4vjo  v'efcfers 
Wonzorytalln 


P  F  ,[  .5]  F 


Larvyinaiivu)  ver-HcAllv^ 

p  F  ,[1.5]  F 
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Ac  <2.E\nEW  OF  CATEMATIOM  LAMlNATlOtJ 


□  -f-  L  ■<-  4  3p  '  ABCDEFGUIJKL' 


L  ,  ’*• 


•*’  T  ( •*’ ,  L  ,  )  -  **• 

***** 

*/iS(:7* 

*DEF* 

*GHI* 

*JKL* 

***** 


L  ,[1]  L 

— ^ 


L  ,  [  2]  I 


L  ,  [  .  5  ]  L 


L  , [1.5]  L 


L 


,[2.5]  L 
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THE  MATRIX  INVERSE  FUNCTION  i  (MONADIC) 


^7-<-33p2  1512140  1 


HC 


TVe  (3  5Vry\b(^l  'i-s-fertwed  ^ 
oversVrilciiir\<j  4  arid  Q 

S C.  pr<idui:e6  ^ka\i^vQr^e'' 

of  C- 


0.04081632653 
0 . 1020408163 
0.1632653061 


0.02040816327 

0.4489795918 

0.08163265306 


0. 2244897959 
0.0612244898 
0. 1020408163 


Th€.  'irNwer  orodudr  csf 

^  aK\d  4i\e  iA\rer6e.  of  C 

10  0  is  ari  ideiA-H-Kj  maVix. 

0  10 
0  0  1 


(SC)  +.X  c 

10  0 
0  10 
0  0  1 
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THE  MATRIX  DIVIDE  FUNCTION  i  (DYADIC) 


5|NAOLTAW^<^OS  L/^4EA(^.  EQuATICMS 


□  -f-(7^33p2"l  512140  "1 


□  S  13  0  11 


\-f  a  (v\alr-i)(  (c)  r€f>'re^eMs  ^ke  ca- 
C5f  a 

^  Xx,  -  +  5x,  = 

Xj  -I-  Zxx  'f'  /-i)  ”  ^ 

j  -  X  ■^  -  \  \ 

aM  <:\  vechor  yig(?re6e^\"^5 
4ke.  cjon-sta^x-H, 


(SC)  +.X 
3  "2  1 


sac 

3  "2  1 


rKe.  ^  'le  -fouM  by  4k€ 

Ad+rix  (lnA€r)  pr(3dud'  cjf +Ke 
Averse  cjf  c6emd€AT3 


'Dy^td.  a^e  Cjf  S  (4ke  ''  iwa-brl  X 

divHion''  'farvcHoA)  yieldl6  41^.6 
Sc>lu:i:\ov^5  dtrecHy. 

X,  ^3 

="*2 

X  3  =  1 
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REVIEW 


Several  primitive  APL  functions  are  especially  designed  for  array 
operations.  For  instance,  the  reversal  (monadic)  and  rotation  (|)  (dyadic) 
functions  rotate  elements  of  an  array.  The  transpose  ^  (monadic  and 
dyadic)  function  interchanges  specified  dimensions  of  an  array  and  pro¬ 
vides  a  convenient  expression  for  array  diagonals. 

Two  special  operators — “outer  product”  and  “inner  product” — are 
particularly  powerful.  Outer  product  provides  an  alternate  way  to  create 
arrays  by  performing  a  specified  dyadic  function  on  every  pair  of  elements 
drawn  from  the  arrays  on  the  left  and  right.  Inner  product  reduces  two  ar¬ 
rays  by  applying  two  dyadic  functions — the  first  function  reduced  over  the 
result  of  the  second.  (+  .  x  is  the  conventional  “matrix  product.”)  Both  outer 
product  and  inner  product  are  generalized  to  accept  any  dyadic  functions 
which  extend  to  arrays. 

The  catenation  function — previously  used  with  vectors  and  scalars 
— also  applies  to  arrays.  New  rows  or  columns  may  be  appended,  depend¬ 
ing  on  the  dimension  indicated  in  brackets  [  ]  .  The  ,  symbol  may  also  be 
used  to  laminate  arrays,  stacking  them  along  a  specified  dimension. 

Finally,  an  overstrike  symbol  E  is  the  matrix  inverse/matrix  divide 
function.  It  can  only  be  used  with  matrices — to  find  their  inverses  (monadi- 
cally)  or  to  solve  linear  equation  systems  and  least  squares  regressions 
(dyadically). 
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U-Program  9 


MISCELLANEOUS 

Contents 

Arithmetic  Functions  +  -  x  t  *  (Monadic)  164 

Logarithmic  Functions  ®  168 

Circular  Functions  o  170 

Recursion  176 

Factorial  Function!  (Monadic)  178 

Combinations  Function!  (Dyadic)  178 

Base  Value  Function  i  179 

Representation  Function  t  182 
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ARITHMETIC  FUNCTIONS  +  -  x  v  *  (MONADIC) 

+4  (dfin-H-k,/  PuncKon  4- 

4 


□  4.  7  +  2  *2  3.7  0  "12  13 

3.7  0  "12  13 


The  nesM.lT  15  ideKvTvcal 
To  TVne.  ir\icryib€rs  on  TKe. 
H<^hT 


+5 

Sarv\€  C3\i)  O  4-  5 


-5 


5 


N-eo^a4^c>h  Pgncftcn  — 


□  f/  ■<-  -  2  ~2  3.7  0  "12  13 
2  2  *3.7  0  12  "13 


The  re-suJ-T  is  -The 
r\eaaTic>n  of  TK'^  Aurvibfers 
on  The  n<3ihT 


-6 


Same  as 


I'  +  V 


MISCELLANEOUS 


514MUM  FONCTIOM  X 


x7  - - 

1  Ihe.  r^ui+  \odica4c6  4V\€ 

S\m  of  '^Vse  AamheKs) 

0  <  7  righf*. 

1 


1 


1  -fer  <X  pos  »4n  v’e,  r\  b  €.  r 


0  z.er6 

"I  -Por  ^3^ 


B-<-3  4.2  0  5.8  0  "9 


xS 

1  "l  0  1  0  "l 


Vi?  ^  SIGNUM  B 

[1]  R^{o<B)-Ci>B  T4\i6  e.)Cpr€‘5‘5e6 

V  ‘Si^ryum  ‘funcHon  -Pc>r 

any  ntuv^berfs)  ^ 

SIGNVM  B 


B  X  SIGNUM  B 


BxxB 

3  4.2  0  5.8  0  9 


Niftloes . 
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FUNCTION -r 


i-2 


0.5 


The  n$-sal+  ib  4Vv€  redprcca\ 
cvf  4he  nu^'v^berfb')  cn  '4\e  riAhft. 


same  at  1  t  3 


5  .125  7 

0.25  0.2  8  0.1428571429 


10 


tIOO 


0.01 


MISCELLANEOUS 


E:><^OfO^MT/AU  ^=ONiCr(C>Ni 


"The  re<>u.l'^‘i6  e  6^e  mWal 

lo^Aan+h*^  ba6e)  raided  4c  4-K^ 
p<$wer-  on  4Ke  n^h+. 

e  (  2.113  1% IS 4o4Viepc>\N/er  1 
e  povsier  2 


2.718281828  *  2 
7 .389056096 


S^wxr 


2.718281828  *  1 


e,  (+0  10  s^n>'ftcan4  dlqJ’Vs) 


POWERS  x8 


71/  ^  10  *  POWERS  -  1 


Usin^  ^  of  10  "for 

nayv\“D€.r6 


4^’«6  express  ic A  ccnver^jes 
on  V(Xlu.€.  of  €- 


2  2.59374246  2.704813829  2.716923932  2.718145927 
2.71828237  2.718280469  2.718281688 
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LOGARITHMIC  FUNCTIONS  ® 


6v^crt(h-'i  l6e  €>  osA  4: 
TKg.  hqiu<ra.(  Lo^c^^rHK  m  ('fvoonaci  i  c 


9  7.389056099  2.718281828 

2  0.9999999998 

*2  1 

7.389056099  2.718281828 

9  *  3 

*  »3 

3 

S  ■<-  10 
N  100 

9N 

4.605170186 

9B 

2.302585093 

{9N)  i  9  B 


IKa  resuWs  or^  nahurixi 
Ic^an+Vir/isoP  numbers  on 
4kfe,  ri<jh+'. 

2  and  are  ike  4o 

Kjhich  yoa  fnus\  irabe  £- 
4o  nLtmher^  sVioujn . 

VoKfld"  16  -iKe  r\a4a«xl  Ic^jairrHnm  of 
6  4o'fK£^  3  power  7 

e  raised  ^Spovoer  ie  3 

A  base  B 

and  (X  nw-niber  NJ 


(B  9  N)  =  (®^)  4  »  s  IKe  dyadic  use  of  ®i6 

eoiiM\Aalenf  dividing  4K^ 
na4um.(  loqarifhm^  of  •+K£, 
NJoMber  M  ixnd  4ive.  ta6e  (3. 

B  9  N 
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THE  LiS6A(2.ITHMtC  FOMCTtOKi  (^yodtc  (©) 


10  »  100 


10  «  10  *  2 


10  »  1000 


10  ®  10  *  3 


Ike.  resccK  4Ke  (power"b  which  4h£ 
nu.iv>ber  on  4h£  l€'f+  (via6T  be  raided 
io  (jfit  4Ke  rw^rYxbev'  on  4ke 


(^e,  ir\u.rhh€Y^6n  4Ke  l€Pt  ib  u-^ually 
called  The 

WKoh  *16  4he  loaan+hm  of  10^1^2  tQ 
"fhc  ba6e  lo? 

ar\d  4be  loaan+hrv\  of  Loco  4o 
d-We  boL^  ^16? 


ir\oni£r 

n^bt . 


10  *  10000  100000  1000000  10  powers  of  10  arc  4ive6e? 

TUe  loflan4V\rvi  '2'$'  “fkc.  loa^e. 
^  5  16  2.  (S  W6ed  4o4kE  T 

'p6\wer  /6  25) 

^  ^  ^  \MKaf  16  4hc  /oflariiKm  o-f  7^?, 

do  "fk-E  base 

4 

3  ®  81  \\)ka+  'i5  dke.  loftondkiYi  (5f  SI  4o 

4k€.  ba.6C  6  ? 


(  ?10)  ®  1 


TKe  lo^ar-idkrvi  of  1  4o  anv/  positive 
bate  it  0 
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□  ^  PI  - 
3.141592654 

02 

— > 

03  4  10 
9.424777961  j 

UPP  ^  3 

oi 

3.14 

BAD  1 1  ■<- 

ORADII  * 
3.14  12.6  28. 


CIRCULAR  FUNCTIONS  o 

PU4inA.e6  -ftincrfioh 

CmoAodlc.  o’) 

IK^.  r€t)al'l'’i6  p"!  ’fime5 
”+K£  umber  orv-fK^  iri^^hTb- 

Pi  4iry\e^>  2 

20 

2.56637061  31.41592654  62.83185307 

N/anabte.  4lv'€ 

number  c(f  ^‘(uni^^'canT  di6- 

f[<x.\jed  in  44^^  ou^-ptcP. 

N«>w  3>  nre  prini^d 


Pi  -Hrvie^  £ack  erf 'VKe  ^Abil  •^(^tuxv'ed 

2 

3  50.3  78.5 
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THE"  T(^140MOM€T^\C  FUNJCTl6NiS  ic.  C>) 


7V\e,  r^tttl'h  16  e\^a\ua+^  ^rhc^lar 

•Vri06ri6rvv64Tic.  ■fanc'hon  if\dlccx^^^  c>n.  ‘+Ke- 
left  Mo\\e\~e.  i  i^v£l«cA4e6 

2,  \  t  C.66  ( rv  c 

^  u  ’{CXV<£Ke.Y&  e\-C.. 

1  o  01  aKd  4Ke  r\u.tv\b^r^6)  o^4Ke  n’^Wf  are  ev  pressed 

\r\  radians. 

■3.43£'“15  ^  ^ 

"TK^  a-f  ^  radians  ^1^0“)  /6  c/ose  to  O. 
Tke  of*  ^  Tadiiar\6  (-4S*) 

1  °  (-fo  2>  $^n«^'caia.f 

.707 


□  ■‘-  /?i4£>J/l/V5  f-  O  f  6  4  il2 


several 

1^,411,3^  511  LlTr,2TT 


1  O 


T1n€  s'fne  <3ff  ©acK  angl^ 


0.5  0.866  1  0.866  0.5  0  “0.5  ■'0.866  “1  "0.886  "0.5  0 


2  o  RADIANS 

0.866  0.5  0  "0.5  "0.866 


TKe,  <5f  €aaW  airv^lc. 

0.866  "0. 500.5  0.866  1 


^  3  o  RADIANS  4arv^ent  €ach  a^gl-e, 

Fov"  ar\\^  6t\e  erf  4ke  (kr\c^\e^^ 

ANGLE  ^  RADIANSl?  p  RADIANS:\ 

TKe  4ana€iTt  cf  4Ke  Ato^Lt 
-H\.£.s‘me  of  4hG  At^€>LE  diuid^rj  by 
co^ihG  of’*4Ke  Aw^LS. 

(3  O  ANGLE)  =(10  ANGLE)  i  2  o  ANGLE 

1 
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7Z 

Cl]  Z 

V 


vz 

Cl]  2  ^ 

7 

7Z 

Cl]  Z  ^ 
7 


7Z  +■ 

Cl]  Z  ^ 

7 


(4  O 

1 


7Z  -t- 

Cl]  Z  ^ 

7 


(  0  o 

1 


7Z  ■*- 

Cl]  Z  ^ 

7 


7Z 

Cl]  Z 
7 


7Z  -f- 

Cl]  z 

7 


SINE  ANGLE 
1  O  ANGLE 


COSINE  ANGLE 
2  O  ANGLE 


Hr  rmv^  be  cerwemeryb  -fo  embcciy 
HKe6€  4ria(sn6rv\6tT\c  'funeH6n5 
at)  morvoaic-  defmedi  ■far\c'KjC)/\<> . 


TANGENT  ANGLE 
3  o 


TRIG^  ANGLE 
4  O  ANGLE 


"\c>  make  4hi 6 -Pam (Ivy  erf 

-fuAcfian6  ccrvvplefe. 
are  available.  ^ 


ANGLE)  =  (1  +  ANGLE  *  2)  *  .5 


2’/?IffO  ANGLE 
0  o  ANGLE 


ANGLE)  =  (1  -  ANGL’E  *  2)  *  .5 


5  o  ANGLE 


"TV\e  by |De\rbc>l  i  c.  -Pr'iopnaryvefr  ic 


COSH  ANGLE 
6  o  ANGLE 


TANH  ANGLE 
7  o 
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'^AI^GLE  -t-  ARCSINE  X 
[1]  ANGLE  ^  ~1  O  X 

V 

WANGLE  •>r  ARCCOSINE  X 
Cl]  ANGLE  ~2  o  X 

V 

WANGLE  ARCTANGENT  X 
[1]  ANGLE  •>-  Q  X 

V 

'WANGLE  ^  ARCTRIG^  X 
[1]  ANGLE  -f  "4  o  J 

V 

WANGLE  ■*-  ARCSINE  X 
[1]  ANGLE  ^  o  X 

V 

'WANGLE  «-  ARCCOSH  X 
Cl]  ANGLE  O  X 

V 


arC'''l'ria0^6(Y\6Vric 

-PuAcKon^ 


\A)Kere  -^oX  16 


Cl] 


lANGLE  ARCTANH  X 
ANGLE  ^  ~7  O  X 
V 
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proairrim6  -fc^r 
an^l€6  in 
dei^v^ee.6  4o  rai:i(an5 
an <3  vXc^ver^. 


[1] 


'^RADIANS  DEGREES  ANGLE 
RADIANS  ^  oANGLE^lQO 
V 


DEGREES  45 


0.785 


SINE  DEGREES  30 


0.5 


DEGREES  60 


COSINE  DEGREES  60 


(2O60xOvl80)  =  COSINE  DEGREES  60 


1 


(DEGREES  45)  x360  ^02 


— ^ 
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^DEGREES  <■  RADIANS  ANGLE 
BEEN  ERROR 

SIDEGREES-^RADIANS  ANGLE 


defirs'ini^  (X 
pr^^ro-m  prodiAze^b  a. 

wptM(TioM  beaxu^e, 

'itvjgL  ^X>iAKl6  Ka6 

already  b^eiA  a^Mned  I 

(see  fO.  172) 


RADIANS 

0.524  1.05  1.57  2.09  2.62  3.14  3.67  4.19  4.71  5.24  5.76  6.28 


)ERASE  RADIANS 


system  w"! 

Q.r<x*><^  0LK\y  naryv^S — ’ir\ct(A<dK^ 
prcc^rc^i'vv^  -  -  Us^’S.d  imcrvedi^xifEv'^ 


'^DEGREES  ^  RADIANS  ANGLE 
[1]  DEGREES  ■*-  ANGLEiOi-l&O 
V 

RADIANS  ol 

180 

RADIANS  0x4 


Rf\0lAWS  16 erased.  6c>  a  new 
proarflirvn  -+ha4- AO.ifne  caio 

defined. 

Pi  radtar\6  i6  4o 

dt^'rees 

5-  nxd.iay\6 
4 


^  ^e(j' 


rees 


(0^3)  =  DEGREES  RADIANS  Ov3 


1 


An  “iden-h+y 


30  =  RADIANS  DEGREES  30 
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RECURSION 


[1] 

[2] 


VZ  f  MEMBER  B 
-►(  0  =  pB)  /  Z  0 

Z  ^(>1  =  1  fS)  y  A  MEMBER  1  4-  BV 


4  MEMBER  i5 


&i^ur*&von  h  <x 
\)McV\  \r\H6  de^i(7Hon 

refers -k)  hence  Gau.6iiac\ 

repeated  use  of  -tioe 

same  process,  Forr  exQynpte.: 

IWe.  ol^niHsncf  include 

^(tsel-f  In  Hs  own  deftnl-fior^ .  MEMBi 
IS  g.  recur^Wo,  proa  ram  which 
cle:i:eriv\ine5  whe+iusr  4ke  element/^ 


endive  leff  are  rwembers  of  fhosc 

on  fKe  cj^hT.  at>  dyadic 


T^MEMBER  ■*-  i  2 
y  «<-  i2  +  ;f  -f  3 
y  MEMBER  Y 


'Trojcirv(^  Hnes  I  undl  Z 

•A^'t^nin0  bofK  X  and  V  values  m  enne  eyp(es5i<m 


MEMBER [ 1 ] 
MEMBERl 1] 
MEMBERi\'} 
MEMBERl 1] 
MEMBER C 1 ] 
MEMBERil']  0 
MEMBERl 21  0 
MEMBERl 2 ]  0 
ME MB ER 12 1  1 
MEMBERl 21  1 
MEMBER121  1 

1  ^ - L__ 


4ke  -Ar^  ,  e^iecochoO  of  MEMBeC- 
-rt\€  •>€a>cA 
4VMr4 

4Ke.  S'»xfh  4erW(fva:^c6  ifhiwedlotelvj  ®n  Hoe  1*^^^ 
4l.e  -AZfh  -lermiAAfeS  (wii+K  ai^  ex.()l*o+  re6icl4  dT  O) 


4Ke  +Kir<l  -tonvvina+e6  Cw't'tT  ar\  expUcA  fenotar  I  ) 

4ke  ^coa4  lerMtrofes  C  “  "■  "  "  "  'v 

4Vve  Anst  dermtAAfes  C  “  “  ^ 

_ 4kP  final  result— ve6.  X  (3)  H.  a  iwember  <5^ 


T^MEMBER  lO 
y  MEMBER  y  2  X  y 


OydroCAA^ 


Y  0  2L  3  d-  s) 


txecude  MEMftElt  d^r  dUe  sameX  buf 
“Wiice  dUe-  • 


•i?’  MEMBER  'WORD' 


NVeM6t(2-  ioi4V\  literals 


'7?i4r/’  MEMBER  'WORD' 


10  1 
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VZ  FAC  N 
Cl]  Z  1 

[2]  -^iN  =  0)/0 

[3]  Z  ^  N  X  FAC  N-\V 


FAC  5 


"PPkC  \t  alt6  gj£carsi\/e .  if  16  CL 
froaranA  vAiAidn  oc>or\pufe6  'fKe  'H^odonai'^ 
of  AonrveaocHve  iMeger  N  bv/  repea.4^d 

fAtL^pricW^A. 

^  (4fe  -Pir\al  re^LclioLAf^  I  b  4K€  VClIuc  of 

N  -f  fv\e6  4Ke  re6u,l+  cjf  execui>oi^  of 
FAC  M-1 


120 


FAC  4 


A/iFAC  3)  =  (3^FAC  2)  ,(3^2^FAC  1  ) ,  (  3  x  2  x  1  xfy4  C  0) 


1 


F/IC  0 


X/  I  3 


X  /  X  4 


(  :  5  )  =  X  /  X  5 


1 


5>^4x3>^Zx1 
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:  5 


120 


15  3  1 


120  6  1 


14  2 


FACTORIAL  FUNCTION!  (MONADIC) 

Ihe  ’i6  4K-C.  produd"  cf  in+eq^ 
-^6(YN  I  4c  4Ke  nomber  gKer\  on 

of  5  3>  <xind  1 

F‘ouc4cnal6  of  4  and  2  ? 


112  Facfcrial  cf  ^2.  lo  (^approK.')  4. *74  x  16* 

4.79£’8 


12.6 


!  8 


Eshiwxf^  ‘-HAit)  one 
fu.nc4Tcn  6)tV6nd^> 


40320 


1  1  8 


8 


2  1  8 


(3  1  8) 


1 


(18) 


COMBINATIONS  FUNCTION!  (DYADIC) 

The  r€6u.l4*  b  4Ke  number  of  ccmblodtccns 
VvjKidA  may  be  -formed  by  -ia'cino  4Ke  homber" 
of  tbinds  cm  the  \ef4  VtW>  i  the  nwv>Voer 
of  thiv^s  cm  the  n'qnt. 


Hooo  fy\any  cbrnbinoHono  <:an  be  farmed  from  8 
4h'mg6^4ahin0  2a4  a  4ime. 

(13)  X  .'8-3  ^pr^6ion6  -for 44ve 

oJvibiAa-hons  of  84h'inQ6.4aV:inq  3 
o-F  -K/v^P.  ^ 


vohoi-  value  dbe^fhWWxve 


VOhctf  meaning  ccald  44\i6  have 


7 
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2  Jl  0 


0 


2X1 


1 


2X10 


2 


2X11 


3 


2x10 


4 


BASE  VALUE  FUNCTION  x 


Ihe.  valu.€.  tff 

4Vv£  ncuY\k>er  go  *fh^ 
^pre66^  i  A  4Ke  ba-se 
^vcxmbeir  ca  l'e.-f+. 


\ 


% 


V 


2x101 


2X10111 


(1  X  2*4)  t  (0  X  2*3)  +  (1  X  2*2)  +  (1  x  2*1)  +  1  x  2*0 


(1  X  5*3)  +  (4  X  5*2)  +  (2  X  5*1)  +  3  x  5*0 


5X1423 


238 


TKe  ba6e  5  Vali*je.  of  M  2  3 
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1339  =  +/2  473x8*3210 

Ba^e  ^ 

8  1  2  4  7  3 

1339 


- > 


(8  1247  3)  -812463 


(8  1247  3)  -812373 


(812473)  -811111 


10  1  1  7  7  6 


10  1  4  4  4 


10  10  10  1  4  4  4 

444 


6a6e  lo 


A  sca\ar  on^e 
■4c>  a  M‘€c1or  4Ke 

O'r  rnodcke6 
vec.4c>'r  Of)  4Vi^ 


10  10  10  10  1  1  7  7  6 
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3782 


24  60  60  1  1  3 


i4  13  60  60 

B  1  3  2 

□  B  4-  yi  X  B 


z 


The  ba6e.  value.  TWcfion  can  be. 
(A4)e4  \Aj\4h  several  ba^es. 


For  evaYv>ple^  2l4  (hovrs/dcu^) 

6>o  /  hovor) 

ho  (.sec.  /  rvxJn.J 
■  4Ke  number  of  «e:cnd6  m 
I  Kcuir  2>  rY^lnu+'e6  Z  6€c- 


3782 


Nicffice  4V^af  4he  le(’+-rv\o54  eleme/ft* 
of  A  do  66  j^-t  ck^ied:  4Ke  rg^o-Z-f. 


— ^ 


0 


3600  60  1 
R  ^  W  +.X  B 


Ar\o+Mr  my  of  loofeUaa  oFlF  — 
a  "weiQhrf-"  veofor. 


7  24  6  0  60 
S  2  10  3  4 

□  .f-  (x/l+^)  ,  (x/24/1)  ,  (x/3+yi) 


Tht6  example  6houv6  (more 
fteKverally)  hovJ  W  may 
)?e  produced- 


(□^  >lxS)=(/+.xS 


208984 

1 


1780  3  12  X  5  2 


1780  3  12  T  210 


5  2  6 


The.  r\ufy\berof  iecorvds  l/\  Z  day  6  /O  hours 
m\n.  4  560 .  (26  ^^84)  —  -faarxd  ba^e 
valae —  \6  ideiorfical  -fc>  dKe  mner  product" 

^  waM  fe>- 


The  Kutmber  of"  'mch66  in  ^  yards 
6mche6  (Mote4kaf  <Z  is  inches  per-foed^ 
3  is  p^ryard^  and  4he  l7g6  is 
(Aconseij^nfial  ^ 

Ose  T  -fo  ocmverb  bacl^  4c  yards,  feef 
ana  Inches  • 


24  60  60  T  3782 

> 


Ccnverd  SlSZ  92ccn.ds  in4o 
_ _ Uours . —  Immures - Sec. 
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10  10  10  T  360 


3  6  0 


REPRESENTATION  FUNCTION  t 

"[Vie  r^aH”  It  -He  repceter&o^or)  . 

of-iK€  number  oin +H€,  nahr  lo 
•4b£.  -Hve  \ef+. 

r^pre^errkcH^K  csf  S^O 


(4 


10) 


(4  p  10)  12001 

wksci  \t>  4Ke-  ba6e-(0  of 

•-H\.£.  b(3L6e-(c>  v’alw.e.  of  i  o  o  i  •  ? 


(5  p  2)  T  23 
10  111 

TV^e  re^iT^sev^'fa.'Kcnn  <5  ■VrvrxiaterA 
\f  "Wyere  are  emcrwjV*  places 
v>^o4e  avojilabU  <3v\  ihe  o'f  T. 


(  3  p  2  )  T  2  3 

111 


2  2  2  T  5 


10  1 


2  2  2  T  4 


2  2  T  3 


1  1 


2  2  T  2 


1  0 


2  T  1 


1 


2  T  0 


182  MISCELLANEOUS 


2  2  2 

11111 
0  0  0  0  0 
0  0  0  0  0 


T  4  4  4  4 


Wi+h  a  vec{o^  or\  4Ke 
€Q.cV\  element  i6  repf'^^eVltea 
\aHKe  ba6e6  on  the  ^and 
06  CO  item  n6.  ) 


iMkxd  are  4ke  Z  rep'^e- 

<3enta-^n6  ct  4  5  C>  7  ar\d‘S'^ 

*  • 


2  2  2  T  l8 

0  0  0  1  1  1  1  0  No-Hce  iVif  -H^ere  are  met 

01100110  e>ncAA0iVN  places  tb  fepfejent 

,  so  H  is  ‘tTu\nCja1red . 


„  ^  3  For  N  of 

{Np2)  T  {i2*N)-l 

eval^ua-^  4^16  Cx(3  re-56  ion 


i?(iVp2)  T  (i2*^)-l 


0  0  0 
0  0  1 
0  10 
oil 
10  0 
10  1 
110 
111 


Its  4ran6(30€je  reveab  a  -feirYiilidr 
potern  —  loa^e  Z  nepre^en^riorvs 

(jf  5UjCe66We-  ‘inteaers - found 

intVve  rows. 
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(i  Ol  proamm 

pnidujie.6  GL4aQle  of  ^  41^ 
loaical  2)  comV^ioaHons 

VIABLE  «-  TRUTH  N  OrOK’d^JT  M- 

[1]  TABLE  *■  fi?  (.Np2)  T  (\2*N)-1 
V 


TRUTH  2 

tTZ-OtH  'habl'^ 

of  2. 


r/?y2’fl  3 

IKe  rdoT^ 

°  °  5  -tabl^  of  order  3 

0  10 
oil 
10  0 
10  1 
110 
111 


pTRUTH  4 

— ^ 


ttj  4k^  ^ir£ 

of  TeurH  -Sable 

ef  ordler  4  ^ 

e 
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LVALUE  <■  BASES  DECODE  VECTOR 


PECODE  is  a 
recu  rs •  ve  c/e^finifi'an 
of  "the  base-  vali/c 

Cl]  VALUE  ^  If  VECTOR  fvY)chcry}  (  J-  )  . 

[2]  ■^(0  =  pBASES^liBASES)/0 

[3]  VALUE  ^  (VALUExx/bASES)  +  BASES  DECODE  If  VECTOR 

^  N 0+e :  7  DECOOE[.s]  BASES'*“(|oVECTOR]|aBftSESV 

uilW  permit  scalar  BASES. 

1780  3  12  DECODE  526 

HouJ  YVNay>t|  ir>cVtcs  m 
5  v.|anis^  2  fcet^  (o  iv^cV>es? 


[1] 

[2] 

[3] 


'^VECTOR  ^  BASES  ENCODE 
VECTOR  ^  BASESWALUE 
^{Q^pBASES^lfBASES) /O 
VECTOR  ^  ilVALUEfx/BASES) 
V 


ENCODE  IS  A 

ALUE  recvrrsi>/«  deflv^ificnn 

tirie  represev^'tei'KoY) 
■fvjY1C‘H<TYl  (  T  )  . 

,  BASES  ENCODE  {x / BASE S) \VALUE 


No'Ve:  scalar  N  cf>a\i| 


1780  3  12  ENCODE  210 

V\ouJ  v.jarels^  fcc’V/iiAcVics 

m  210  iv^cVves  ? 
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3+4 


3+4 


EXECUTE  FUNCTION  a 

Normal  eveco'Hovk  of  a  fiumenc  eLxpftssiovi 


'3+4  ' 

i  '  3+4 ' 

^  '4-<-3+4  ’ 

A 

i(/4>10)  /  »Z?^4x5  ' 
D 


a  \\fenajt 


\% 


Ccm\/erfi[»rv£|  a  hteroi  fD  a  rw>enc 

X  s'fr»ps  off  fV^e  cjwjofe  imarks 

av\c(  eyecufes  tV\e  eypressiay>  \r>s>de 

j§L  CAv\  be  u5€ol  t5  as5\^v\  v(xriaV»lcs 
or  execv;fe  programs  uv\<ier 
cerfixjv^  ccfY>d»*Kor>5 


T  I  5 

1  2  3  4  5 
p  T  l  5 


FORMAT  FUNCTION  t 

CcrY\verV\vvc|  a  nvweric  fo  a 
C  spaces  \t>  eluded) 


'12345'= 


J  X  5 


i  5 

1  2  3  4  5 

'  1  5  ' 

1  2  3  4  5 


T  V>QS  tbe  effect  of  putHvu;| 
o\Axte  moAlcs  arowid  tbe  v».l</e  of  tbe 
^expressCovn  av\d  represeritJvuj  »+  )v\ 
the  simplest  literal  ferrwvAt. 

T*  ovicH  X  are  (klwd  of)  Ivwerses 


(plTi5)  =  p^l'is 


MISCELLANEOUS 


PVAOiC  FOtSMAT  T 


1  ?  i5 

1*0  2,0  3,0  4,0  5,0 

2  T  i  5 


has  A  di^adji'c  u^so^e; 

+0  represc^o*^  values 
(as  \ii"enxls)  \r\  a  speo^^’edi 

A  ,  Oi  j 

1  ]place  afteA.  •tV>e  deciwoJl  paSwt 
‘Displow^  2  plac€5  after  tVie  deciwoJl  pomT 


6e!r>era,\  F(rrma'H->v\<l 


K  -e  10  2 

A  (  1 1  0  )  o  . 


*  1 


V  Tf  A 

1 , 00 

1.00 

2.00 

4.00 

3.00 

9,00 

4.00 

16.00 

5 . 00 

25 . 00 

6 . 00 

36.00 

7  .  00 

49 , 00 

8 , 00 

64.00 

9.00 

81.00 

10,00 

100.00 

p 

1,00 
1 ,41 
1  ,  73 
2,00 
2 ,24 
2 , 45 
2,65 
2,83 
3,00 
3.16 


^CcTYvypa^e  "hible 

on  p.  ISO  1 


^\of€  ^jenerdl^^  T  car\  be 
use«l  lAnIrb  a  vector  left 
cxruv/went : 

N/^ijI  is  “tbe  nvwber  of  Spaces 

\v>  tbe  V\<rrizflm’hJL|  ^leld 
•fur  eacV>  elevnent  o-f  A 

VW  '\Y>di cates  V\oyj  vnanv^ 
places  after  tbe 
decivnoJ  p<ri>A.t  (+) 
or  use  of  E-r>olTi*H<m 

f-). 


TVie  lY^te^iMs  ‘frovn  i  -H  io, 

iine\r  s<^uafes  4  s^uo/je.  nxrts 

^pxnrnaHed  \y>  a  tuble 
VA/vtb  10  co\vv>Av>s  eacVt 

<2  places  affcA  tbe 

declvv^oJ  pcnv\t  fbr  eacV\ 

YvwnVaer. 
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+  /  1 10 


55 


SCAN  OPERATOR  \ 

SwYv^  'TedLuc'Kov^ 


+\iio  SoTTi  Scan 

1  3  6  10  15  21  28  36  45  55  ^  CUY^  VC  S^JT^S  . 


(+/il)5(+/i2),(+/i3),(+/i4),(+/i5),(+/i6),(+/i7),(+/i8),(+/i9),+/il0 


(x\iio)  =  :  ilO 

1111111111 

I  \iio 


\  ynaj4  uscci 

duo^'c  scalar 


v\0  010110 


A\1  101001 


[1] 


LVALUE  ^  BASES  DECODE  ARRAY 
VALUE  ^  ARRAY  +.x  <J)x\(J)l  , 1 

V 


a\‘Vcrtr>a*Hve  dc.'f'vjWov^ 
^  DECODE  (x) 
uslWiflj  scan  \ 

(lV^\s  pfognxvn  <^eY\eralizes 
-V7> 
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EXPANSION  FUNCTION  \ 


10  10  1/  '  ABODE ' 


ACE 


1  0  1  0  1  \  MCE” 


ACE 


Thfi  retuH"  it>  (Xy\  arroj^  ex/jciruiM  -k)  iiae 
Sire,  of rsuwibers  on4-h€  lefr 
6L(uooe/6  aiM  Is)  \MitK'5pac£6/4sr 

6r  65  6fbr  nouryiencials)  lo^rted 
in  4We 'arro.v/  cn4V\e 

ExpAmion  \  anci  o^mpre'S^ion  /  avu 

Sj«xce6  a.n2  m  •‘'^'1^^ 


n  ■*-  R  ■*■  (Q 


1  0 


2  3  5  7  11  13  17  19 


2  5  11  13 


1  0  1  1  0  0)  /  7  .  .  _  . . .  .. 

A  r\u.rwGr(cal  'rec+o»^  a6rf\(?re6S^a  • 


Q  \  R 

2  0  5  0  11  13  0  0 


A  rxuLmerimi  VQck>r  i6  ex(?aiacl€cl  *.  ^ 
elemards  ^  ODrret)^fvd\m  -fc  Is  in 
A.  (Xra.  preserved  ^  Os  repla<!:e  ^h-e 
CrH\e'rs . 


pi? 


\Aihat  h  dKe  siz-e  c?f  ^  ? 


+/5 


4l6\K)  (YvaKv-y  is  i  A  0i  ^ 


(P^)  =  P5\i? 

- ^ 


The  sire  rf  and  Q\<^  covYipQfed. 


L-«-1111011111001100111111 
L  \  *  BACKSLASHOREXPAND' 

Preserv^e  4he  etemerds  of 
HaVVf  where  “fKere  cire.  is  in  L-^ 
S(^ce6  elemen-ts  where 

-l4ere  ore  6s. 
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y  ■*-  1  0  1  1  0 


i/  \  3  3  p  i9 


Expans  i<^n  wHK  fvv):(ric,^s 


1  0  2  3  0 
4  0  5  6  0 
7  0  8  9  0 


fexparviing  ■4-K&  losf  d^^^6n^l6^ 
Cccttunn^)) 


U  \  3  3  p  i9 

J  Q  Q  fecpahding  4Ke.  -fird"  climGiA.i)i6(^ 

4  5  6 
7  8  9 
0  0  0 


(12  p  1  0  0)  \’i4PL\'  ;  (3  p  10)  T  212  x  30 


An  expresston  <2rP  4d(bctte  -f©  (\ 
(XrVa^n  c^mpat^r  .  .  . 
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REVIEW 


Numerous  functions  are  available  in  APL  for  special  purposes: 
monadic  use  of  +  -  x  v  ,  the  logarithm  ®  function  (monadic  and 

dyadic),  pi-times  o  (monadic),  all  the  circular  functions  o  (dyadic) — includ¬ 
ing  sine,  cosine,  and  tangent — factorial  and  combinations  !  ,  base  value  i 
and  representation  t  ,  execute  i  ,  format  t  ,  scan  \  ,  and  expansion  \ . 

Recursive  programs  may  be  defined  in  APL  by  including  a  program 
name  w/ithin  its  own  program  definition.  Such  a  program  will  execute  itself 
in  the  process  of  executing  itself,  etc.  Recursion  is  an  extremely  powerful 
programming  technique  . .  .  and  a  powerful  concept! 
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APL  Bogglers 


Contents 


A  collection  of  APL  expressions  which  boggle  the  mind.  Some  are  special 
cases;  some  are  implementation  anomalies;  and  some  are  open  mathemat¬ 
ical  questions — but  all  are  syntactically  allowable  APL  expressions  which 
have  results  you  can  try  to  predict. 
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0  T  0 


0*0 


1  ®  1 


0  !  0 


0  +  i  0 


(  X  0  )  =  i  0 


(  xO)  p  1 


1  +  X  0 


6  f  X  5 


6  4-  X  5 


!  1  .  5 


8  8  89 


X  5 


0  1  T  98.6 


10  10  10  T  34 


2  1  110  1 


2  2  2  2  2  T  13 
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+  /iO 


-/lO 


x/  1  0 


t/  t  0 


=  /iO 


</  1  0 


</iO 


>/iO 


>/  I  0 


*!  \  0 


r/io 


L/iO 


I  /lO 


A/  1  0 


v/io 


*  /  I  0 


®  /  I  0 


:/io 
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!  T  !  ! 


p5+  ,  4 


p 'CAN' 'T'  p(lp4)+l  lp3 


=  \' AAA  '  p7p  '  ' 


t\0  0000 


0\  1  0 


0\  '  '  I  +/[1]3  0  4p2 


+/C2]3  0  4p2 


+/[3]3  0  4p2 


196  APLBOGGLERS 


k  ^  10p5 


U  3  4  p  il2 


>4[10pll  -f-  ilO 
k 


7  2  3  5  7 

7C  ] 

VLxOl 


VL  ]^9 
V 


pMLl-,  ] 
pML ; 2] 

pMLl  3;  2  4  3-(-l+/V[l  3;2  4]-s-9 

1  0  i  M 

1  0  \  M 

0  0  ^  M 

0  0  +  M 


7[  \03-t-9 
V 


4  5  +  M 


4  5  +  /V 


7[3]^i0 

V 


2  2  6?  M 
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S  ^  5 

(5^8)  X  S 


T  ^  8.8 

iT^S)  X  PT 


VZ-<rF  X 
[1]  Z^X+I 
V 


VZ^G  Y 
[  1  ]  Z-s-F  Y 
V 


Y^3 
G  4 
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Summary  of  APL* 
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*Note:  These  summaries  cover  the  material  presented  in  this  book  but  are  incomplete  in 
some  places  (marked  *).  For  complete  details  consult  a  reference  manual  such  as  APL/360 
Reference  Manual,  2nd  edit.,  by  Sandra  Pakin,  S.R.A.,  1972;  or  APLUM  Reference  Manual, 
2nd  edit.,  by  Clark  Wiedmann,  University  of  Massachusetts,  1977. 
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SUMMARY  OF  DYADIC  SCALAR  FUNCTIONS 


"Dyadic  scalar  functions"  are  those  dyadic  APL  primitive  functions 
that  extend  the  way  they  perform  on  scalars  to  higher  order  arrays. 


SYMBOL 

NAME 

DEFINITION 

EXAMPLE 

+ 

Plus 

Standard 

(3+4)=7 

- 

Minus 

Arithmetic 

( 8-3  )  =  5 

X 

Times 

( 2x3  )=6 

T 

Divide 

dots  )  =  2 

- 

Equals 

(4=4)=1 

< 

Less-Than 

Result  is  1  if 
the  relation  is 

(4<5  )  =  1 

< 

Not  Greater 

true ;  result  is 

0  if  the  relation 

(4<3)=0 

> 

Not  Less 

is  false. 

( 4>3  )  =  1 

> 

Great er-Than 

(4>5  )  =  0 

Not  Equal 

(  4?:4)  =  0 

r 

Maximum 

Result  is  the 
larger 

(5r  8)  =  8 

L 

Minimum 

Result  is  the 
smaller 

(5L8)=5 

1 

Residue 

Result  is  remainder 

(A  1 B) =S-AxLBtA+A  =  0 

(5  1  8)=3 

A 

And 

(0011a0101)= 

0  0  0  1 

V 

Or 

(0011v0101)= 

0  111 

A 

Nand 

(0  0  1l7V0  10  1)  = 

1110 

¥ 

Nor 

(0011v0101)= 

10  0  0 

* 

Power 

Exponentiation 

( 3*2  )  =  9 

e 

Logarithm 

(Base)  log  (Number) 

( 3®9)=2 

t 

Combinations 

(R!N) = ( !N) T ( !R) X !N-R 

(3  :  8)  =  56 
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SYMBOL 


NAME 


DEFINITION 


EXAMPLE 


o 

Circular 

lo(radians)  is  Sine 

2o(radians)  is  Cosine 

3o(radians)  is  Tangent 

4o(radians  is 
(1+ ( radians ) *2 ) *5 

5o(radians )  is 

Hyperbolic  Sine 

6o ( radians )  is 

Hyperbolic  Cosine 

7o ( radians )  is 

Hyperbolic  Tangent 

-7o(nuTnber)  is  Arc 
Hyperbolic  Tangent 

-6o(nuTnber)  is  Arc 
Hyperbolic  Cosine 

-5o(nuTnber)  is  Arc 
Hyperbolic  Sine 

-4o(number)  is 
( - 1+ ( number ) *2)*  .  5 

-3o(number)  is  Arc 

Tangent 

-2o(number)  is  Arc 

Cosine 

-lo (number) is  Arc  Sine 

Oo  (number)  is 
(1- (number) *2)* . 5 

( looi )=o 

('2001  )  =1 

( 300v4)=l 

( “301 ) =Ot4 

( “201 ) =1 

(“lO0)=l 
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SUMMARY  OF  MONADIC  SCALAR  FUNCTIONS 


"Monadic  scalar  functions"  are  those  monadic  APL  primitive  functions 
that  extend  the  way  they  perform  on  scalars  to  higher  order  arrays. 


SYMBOL 

NAME 

DEFINITION 

EXAMPLE 

+ 

Identity 

( t ( number ) ) = ( number ) 

(+4)=4 

- 

Negation 

( - ( number ) )  =  0- ( number ) 

(-4)="4 

X 

Signurn 

( X ( number ) ) = 

(  (  number)>.0)  -  (number  )  <0 

(  x'"4  )  =’’l- 

V 

Reciprocal 

( V ( number ) ) =lv ( number ) 

( v4)= . 25 

Not 

(~ (number) ) =1- (number) 

(~0  1)=1  0 

1 

Absolute 

Value 

(number  )r  -(number) 

L 

Floor 

(number)-ll (number) 

( L3 . 4)=3 

r 

Ceiling 

(number)+l| -(number) 

(r3.4)=4 

? 

Random 

A  random  choice  from 

1 ( number ) 

(  .^  1  0  )  =  7 

★ 

Exponential 

(2.71828. . . ) *( number ) 

(*1)=2. 71828 

Natural 

Logarithm 

(2.71828...) ©(number ) 

(®2 , 71828 )=1 

O 

Pi- times 

(3.14159...)x( number ) 

(ol )=3 . 14159 

1 

Factorial 

x/i  ( number ) 

CD 

II 

CO 
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SUMMARY  OF  MIXED  FUNCTIONS 


"Mixed  functions"  are  those  APL  primitive  functions  which  have  certain 
requirements  for  the  arrays  they  use  as  arguments  (and,  hence,  do  not 
extend  the  way  they  perform  on  scalars  to  higher  order  arrays). 


SYMBOL 

NAME 

DEFINITION/ SYNTAX 

EXAMPLE 

» 

Catenation 

Chaining; 

( array ) , ( array ) 

'AB',' CDS' 

ABODE 

\ 

Iota 

Index  generator; 
i  (scalar) 

X  4 

12  3  4 

[  ] 

Indexing 

Selection  of  specified 
elements : 
vector  [array] 
matrix  [array; array] 
array[array; • - . ;array] 

235  7[3] 

5 

(2  3pi6)C2;2] 

5 

(  2  3  4pi24)[2;3;: 
21  22  23  24 

P 

Rho 

Size  of  array: 

p  (array) 

p2  3  5  7 

4 

/ 

Compression 

Selection  of  specified 
elements; 

(logical  vector)/( array ) 

011  0/2  357 

3  5 

£ 

Membership 

Result  is  1  if  element(s) 
on  left  are  found  on  right; 
otherwise  0; 

( array )£( array ) 

3e2  357 

4 

f 

Take 

Take  first  (+)  or  last  (-) 
elements; 

(vector) t( array) 

312  357 

2  3  5 

Drop 

Drop  first  (t)  or  last 
( -  )  elements: 

(vector)  >i.(array) 

312  357 

7 

9 

Deal 

(scalar)  unique  random 
integers  from  i(scalar): 

(scalar)  ?  (scalar) 

5  ?5 

3  15  2  4 

—  Continued  — 
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SYMBOL 

NAME 

Grade-up 

t 

Grade-down 

1 

Index-of 

P 

Restructure 

9 

Ravel 

4) 

Reversal 

45 

Rotate 

Transpose 

Dyadic  Transpose 

i 

Matrix  Inverse 

Matrix  Divide 

DEFINITION/ SYNTAX 

EXAMPLE 

Result  is  the  permutation 
integers  which  order  a 
vector 

-ascending: 

^  (vector) 
-descending: 

1/  (vector) 

4i30  20  40  10 

4  2  13 

f30  20  40  10 

3  12  4 

Result  is 

least  indices  of  (array) 
in  (vector) 

(vector)  i  (array) 

'ABODE' \' AX' 

1  6 

Puts  (array)  in  new 
structure 
(vector)  p  (array) 

2  3p\6 

12  3 

4  5  6 

Strings  out  (array)  into 
a  vector 
, (array) 

,2  3p  i  6 

1  2  3  4  5  6 

Reverses  elements  of  an 
(array)  about  axis  I 

4>  [I]  (array) 

4>[2]2  3pi6 

3  2  1 

6  5  4  _ _  _ 

Revolves  specified  numbers 
of  elements  of  an  (array) 

(array)  [l]  (array) 

1  ■l4>[2]2  3pi6 

2  3  1 

6  4  5 

Reverses  order  of  axes 
(array) 

^2  3p  i  6 

1  4 

2  5 

3  6 

Axis  I  of  (array)  becomes 
axis  (vector) ClJ  of  result 

(vector)  ^  (array) 

1  lisj2  3pt6 

1  5 

Result  is  inverse  of  matrix 
@  (matrix) 

/•f+.xaM-e-2  2''2plO 

1  0 

0  1 

Result  is 

( ®  (matrix  B)  )  +  .  x  (matrix  A) 

(matrix  A)  g  (matrix  B) 

Solution  to  simultaneous 
linear  equations  with 
coefficients  B  and 
constants  A 

204  SUMMARY  OF  APL 


Continued 


SYMBOL 

NAME 

DEFINITION/SNYTAX 

EXAMPLE 

1 

Base-value 

Decoding  base-10  value  of  right 
(array)  in  base  system  of  left 
(array) 

(array)  i  (array) 

24  60  eojil  2  3 

3723 

T 

Representation 

Encoding  right  (array)  in  base 
system  of  left  (array) 

(array)  t (array) 

24  60  60X3723 

12  3 

Execute 

Removes  quote  marks  and  eval¬ 
uates  (vector) 

1  (vector) 

±  ’  3  +  4  ' 

7 

J 

Format 

Displays  (array)  as  a  literal 

T (array) 

¥  i  5 

1  2  3  4  5 

Dyadic  Format 

Displays  (array)  as  a  literal 
with  (vector) [1]  column  spacir 
and  (vector)  [2]  significant 
digitSo  (vector)^  farrav) 

g  6  1V2  3  4 

1  2 . 0  3.0  4.0 

1 

\ 

Expansion 

Expansion  of  (array)  by 
(logical  vector) 

logical 

(vector) \  (array) 

•u 

o 

o 
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SUMMARY  OF  OPERATORS 


An  APL  "operator"  requires  a  function  or  functions  (given  as  argument (s))  to  apply 
to  arrays.  The  functions  must  be  scalar  dyadic  functions. 


SYMBOL 

NAME 

DEFI NIT ION/ SYNTAX 

EXAMPLE 

/ 

Reduction 

The  result  is  obtained  by 
inserting  the  (dyadic  function) 
between  the  elements  of  the 
(array)  along  a  specified  axis  I 
(function) /i I]  (array) 

+/Cl]2  3pi6 

5  7  9 

o  , 

Outer  Product 

The  result  is  an  array  obtained 
by  applying  the  (dyadic  function 
to  every  pair  of  elements  in 
the  (arrays)  given 

(array) 0 .  (function) (array) 

( i5 )o . i5 

) 

1  2  3  4  5 

2  4  6  8  10 

3  6  9  12  15 

4  8  12  16  20 • 

5  10  15  20  25 

Inner  Product 

The  result  is  an  array  obtained 
by  reducing  (/)  the  left 
(dyadic  function)  over  the 
result  of  the  right  (dyadic 
function)  applied  to  rows  of  the 
left  (array)  and  columns  of  the 
right  (array) 

(array) (function)  .  (function) (ar 

(3  2pi6)+;x2  3pi6 

9  12  15 

19  26  33 

29  40  59 

ray) 

\ 

Scan 

The  result  is  an  array  of  the 
same  size  as  the  given  (array) 
where  each  element  is  obtained 
by  reducing  (/)  the  elements 
up  to  and  including  it  along  a 
specified  axis  [I] 

(function) \II] (array) 

+\[2]2  3px6 

13  6 

4  9  15 
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SUMMARY  OF  COMMANDS 


An  APL  command  causes  the  computer  to  carry  out  some  action  which  has  an  effect 
on  programming  activity. 


SYMBOL 

NAME 

DEFINITION/ SYNTAX 

EXAMPLE 

Assignment 

Gives  a  name  to  some  data. 

(name)  (data) 

S'E’i?  JE’S'^9  0  0  0 

or 

l^AME^  'HAL' 

Branch 

Changes  order  of  execution 
of  statements  in  a  program. 

(line  number) 
or 

^  (line  label) 

-^(COUNTER) /7 

or 

->-4x  iA  =  0 

or 

-yEND 

A 

Trace 

The  result  of  each 
(line  number)  in  (program 
name)  is  displayed  as  the 
program  is  executed. 

program 

T  A  ^  (line  numbers) 

TLSOLVEy-1  4  5  6 

A 

Stop 

The  (program)  automatically 
halts  at  each  (line  number). 

program  numbers) 

^  name  ^  ^  ' 

SLSOLVEy-3  12 

□ 

Quad 

For  input: 

□  in  an  expression 

For  output: 

□  ^  (expression) 

N^n 

7 

□ 

Quote- Quad 

For  literal  input: 

□  in  an  expression 

For  output  (without  a 

carriage  return) : 

□  ^  (expression) 

WORDS 

□■f-L 

WORDS 

T 

(position  of  type  ball) 
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SUMMARY  OF  PROGRAM  DEFINITION  SYNTAX 


The  syntax  of  an  APL  program  determines  how  it  may  be  used.  Syntax  may  be  dyadic 
(2  arguments),  monadic  (1  argument),  or  nyladic  (0  arguments)  and  may  have  an 
explicit  result  or  no  explicit  result.  Examples  of  these  six  different  syntaxes 
are  shown  in  the  program  definitions  below: 


WITH  EXPLICIT  RESULT 

NO  EXPLICIT  RESULT 

DYADIC 

IVALUE^X  POLY  C 

[1]  VALUE<-\-/X>^C*\qC 

V 

Vff  BASEBALL  AB 

[1]  'YOUR  BATTING  AVERAGE' 

[2]  HiAB 

V 

MONADIC 

^X-^ AVERAGE  X 

Cl]  X^(.+/X)ipX 

V. 

lAREA  S 

[1]  'AREA  OF  SQUARE  S  IS' 

[2]  S*2 

V 

NYLADIC 

VVALUE^PI 

[1]  VALUE^Ol 

V 

VROLL 

[1]  'THE  DICE  ARE' 

[2]  ?6  6 

V 
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SUMMARY  OF  FUNDAMENTAL  PROGRAMMING  CONCEPTS 


CONCEPT 

EXPLANATION 

EXAMPLE 

Data 

Constants :  numerical  values  or 
literal  values . 

3.18 

'ABC' 

Function 

A  specific  computational  operation: 
"monadic^'  (one  argument)  or  '^dyadic^^ 
(two  arguments)  or  both. 

v8 

3+4 

Variable 

An  entity,  with  a  name,  containing 
data  which  may  be  changed 

N 

Command 

An  explicit  order  which  causes  the 
computer  to  take  some  action. 

Expression 

A  combination  of  data  and  function(s) 
or  command ( s )  or  program ( s ) . 

3x4  +  5 

Evaluation 

Giving  the  value  resulting  from  sub¬ 
stituting  values  for  variables, 
executing  programs,  and  performing 
functions  (rightmost  first)  in  an 
expression. 

3x4  +  5 

27 

Error  Report 

Brief  diagnostic  information  about 
the  type  and  location  of  the  cause 
for  failure  of  an  expression  to  be 
evaluated . 

2  4x1  3  5 

LENGTH  ERROR 

Array 

Rectangular-structured  data ;  scalar , 
vector,  matrix,  3-array,  4-array,  etc 

2  4  6 

Parallel 

Processing 

Use  of  functions  on  arrays  in  an 
element -by-element  fashion. 

2  4  6x1  3  5 

Program 

Definition 

Execution 

Result 

An  ordered  sequence  of  expressions. 

"Writing^'  a  program.  (Entering  a 
program  in  the  computer.) 

"Running’^  a  program.  (The  computer 
evaluating  expressions  in  a  program, 
line-by-line. ) 

The  "answer",  CThe  consequences  of 
executing  a  program,) 

VZ^MEAN  X 
[1]  Z^(+/X)^pXV 

MEAN  70  75  95 

80 

Sub-program 

Programs  which  are  used  in  expressions  yZ^VARIANC^  X 

within  other  programs.  |[1]  Z-^MEAN(X-MEAN  X)*2V 

—  Continued  — 


SUMMARY  OF  APL 


209 


CONCEPT 

EXPLANATION 

EXAMPLE 

Recursion 

A  program  using  its  own  name  in  its 
definition.  (A  program  executing 
itself  repeatedly. ) 

VSUM-^GAUSS  N 
[  1 :  SUM<-Q 

[2]  -*^(iV=0)/0 

[3]  SUM^I^  +  GAUSS  N-1 

V  . _____ 

Iteration 

A  program  executing  certain  expres¬ 
sions  repeatedly — in  a  "loop.^' 

VTRIAf^GULAR  N-,I 

[1]  J^O 

[2]  I^I+l 

Names 

Identification  of  programs  and 
variables  (beginning  with  an 
alphabetic  letter): 

[3]  PRINT:  +/il 

[4]  -^(I<N)/2 

V 

Local 

Global 

“  variable  names  within  a  program 

only 

-  variable  names  within  the  entire 
active  workspace 

N  and  I  and  PRINT 
in  TRIANGULAR  above 

N^5 

Workspace 

The  working  area  in  the  computer 
available  for  (disk)  storage  of 
programs  and  variables. 

) CLEAR 

CLEAR  WS 

Suspension 

The  condition  of  a  program  after 
encountering  an  error  in  one  of  its 
expressions:  partially  completed, 

"suspended"  on  a  particular  line. 

TRIANGULAR  'NUMBER' 

1 

SYNTAX  ERROR 

TRIANGULARl>\^  -^(I<N)/2 

A 

Debugging 

Any  methods  of  pinpointing  errors 
("bugs")  in  programs  and  fixing 
them. 

from  above 

N^5 

^4 

Interactive 

Program 

Input 

Output 

A  program  which  interacts  with  the 
user,  i.e.  typically  prints  output, 
accepts  input,  alternatingly . 

-Data  entered  in  the  computer 

-Data  displayed  by  the  computer 

DRILL 

WHAT  IS  3x4  ? 

□  : 

12 

WHAT  IS  9x7  ? 

□  : 

63 

etc  . 

Simulation 

A  program  which  simulates  some 
real-world  phenomenon  via  a 
mathematical/computational  model — 
usually  a  simplification  and 
possibly  a  distortion. 

^TEMPER  THRESHOLD 

[1]  EMOTION^Q 

[2]  NEW:  EVENTir?lQ 

[3]  EMOTION^EVENT  + 

EMOTION i 2 

[4]  ■*(,EMOTION>THRESHOLD)/MAD 

[5]  -^NEW 

[6]  MAD :  '**:?!*!* 

[7]  ->1 

V 
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SUMMARY  OF  ERROR  REPORTS 


Error  reports  give  general  diagnostic  information  about  the  type  and 
location  of  errors  in  expressions. 


TYPE 

INTERPRETATION 

EXAMPLE 

SYNTAX 

Faulty  syntax  in  an  express¬ 
ion,  i.e.  a  function  or  pro¬ 
gram  used  without  value(s)  in 
the  proper  place 

4  +  3x 

SYNTAX  ERROR 

4  +  3  X 

A 

VALUE 

A  name  used  without  having 
been  assigned  a  value 

8x7 

VALUE  ERROR 

8x7 

A 

INDEX 

Improper  Indexing,  e.g.  an 
index  using  a  negative  num¬ 
ber,  a  non-integer,  or  an 
integer  larger  than  the  size 
of  an  array 

'ABCD' [5] 

INDEX  ERROR 

'ABCD' Cb] 

A 

DOMAIN 

A  value  outside  of  the  do¬ 
main  of  values  used  with  a 
particular  function 

5^0 

DOMAIN  ERROR 

5t0 

A 

LENGTH 

The  size  (length)  of  one 
array  does  not  match  the 
size  of  the  other  array 
used  with  a  function 

2  3  x  2  3  4 
LENGTH  ERROR 

2  3  x  2  3  4 

A 

DEFN 

Improper  attempt  at  de¬ 
fining  or  editing  a 
program . 

UA  B  C  D 

DEFN  ERROR 

DA  B  C  D' 

A 

CHARACTER 

Improper  formation  of  a 
character 

;4 

CHARACTER  ERROR 

A 

RANK 

A  function  used  with 
value(s)  of  the  wrong 
rank 

i4  5  6 

RANK  ERROR 

x4  5  6 

A 

LABEL 

Improper  use  of  line 
labels  in  a  program 

VSTART 
[1.]  START: 

LABEL  ERROR 

WS  FULL 

Workspace  capacity  too  small 
to  complete  computation 

( iaooo)o . xiloOO 
NS  FULL 

( il000)o . xiiooo 
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SUMMARY  OF  EDITING  PROCEDURES 


Editing  procedures  are  used  to  define,  refine,  or  change  a  program. 


TYPE 

NOTATION 

EFFECT 

EXAMPLE 

General 

program 

name 

Change  from  command 
execution  mode  to 
program  definition 
mode. 

y PROGRAM 

Cl] 

Display 

program  line 

name  number  ^ 

Display  (line  number) 
or 

Display  whole  program 
if  (line  number)  is 
omitted. 

yPROGRAMlsni 

or 

VPROGRAMLUl 

Override 

program  ^  line  ^ 

V  [  u  1 

name  ^  number 

(expression) 

Replace  an  expression 
on  a  given  (line  number) 
with  a  new  (expression) 
in  program  (name) . 

yPR0GRAM[5lB^l 

Add 

program 
^  name 

Add  new  line(s)  on  to  a 
previously  defined  program 
(name)  . 

y PRO  GRAM 

[7] 

Insert 

program  ^  decimal  _ 

V  C  n  . 

name  line  " 

number 

(expression) 

Insert  a  new  line  between 
(decimal  line  number) 
and  (decimal  line  number) 

in  program  (name) . 

yPR0GRAML2 .51 

Delete 

program  line 

name  ^  number  ^ 

line 

number  ATTN 

Remove  (line)  from 
program  (name) . 

yPROGRAMLAl 

[4]  ATTN 

Change 

Header 

V  [OKheader) 

name 

Give  program  (name)  a 
new(header) . 

yPROGRAMlOlNEW 

Character 

V* 

program  ^  line  ^  « 

name  ^number 

(X 

CO 

;  Prepare  for  changing  specific 
characters  on  a  (line)  in  a 
;  program  (name)  by  displaying  the 
line  and  spacing  the  type  ball  over 
a  certain  number  of  (spaces).  Then 
/  is  used  to  strike  out  characters, 
and  numbers  insert  spaces  in  front 
of  characters. 

yPR0GRAMZ207l 
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LIST  OF  SYSTEM  COMMANDS 


A  "system  command"  is  used  for  workspace  control  and  library  management. 
(A  library  is  a  collection  of  workspaces.) 


NOTATION 

DEFINITION 

EXAMPLE 

)SAVE  (work- space  name) 

Store  the  current  (workspace) 
on  disk  memory.  All  programs 
and  variables  are  saved. 

)SAVE  MYWORK 

MYWORK  SAVED  07/08/77 

)LOAD  (work- space  name) 

Retrieve  the  (workspace)  from 
disk  memory  to  become  the 
active  workspace. 

)L0AD  GAMES 

GAMES  SAVED  04/14/77 

)COPY  (library  number) 
(work- space  name) 

(program  or 
variable  names) 

Copy  particular  (programs 
and/or  variables)  from  a 
particular  (workspace)  in  a 
particular  (library)  into 
the  current  active  workspace. 

)C0PY  123456  PLOT  GRAPH 

)FNS 

iList  alphabetically  the  names 
of  all  defined  functions  in 
the  active  workspace. 

)FNS 

GRAPH  HANGMAN  NIM  MOVE 

)VARS 

List  alphabetically  the  names 
of  all  global  variables  in 
the  active  workspace. 

)VARS 

A  B  X  Y 

)LIB 

List  the  names  of  workspaces 
in  user's  library. 

)LIB 

MYWORK 

GAMES 

)WSID 

Workspace  Identification. 

Result  is  the  name  of  the 
current  active  workspace 

)WSID 

GAMES 

)SI 

State  Indicator. 

Lists  all  suspended  programs 
(including  "pendant”  programs 
which  have  yet  to  be  completed 
due  to  the  suspended  programs) 
marked  with  astericks. 

)SI 

HANGMANL291  * 

NIML31  * 

MOVE  111 

) CLEAR 

Clear  the  active  workspace. 

) CLEAR 

CLEAR 

) ERASE  (program  or 

variable  names) 

Remove  a' (program)  or  global 
(variable)  from  the  active 
workspace. 

) ERASE  GRAPE 

)DROP  (work-space  name) 

Permanently  remove  the  contents 
and  name  of  a  (work- space) . 

)DROP  MYWORK 

MYWORK  DROPPED  07/08/77 
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LIST  OF  SYSTEM  VARIABLES 


A  "System  variable"  is  a  special  variable  which  contains  information 
relevant  to  the  computing  system  and  which  may  be  used  in  APL  expressions. 


NOTATION 

NAME 

DEFINITION 

EXAMPLE 

nio 

Index  Origin 

Value  is  0  or  1; 
used  as  the  beginning 
of  indices. 

UIO^O 

i4 

0  12  3  4 

UPP 

Printing  Precision 

Value  is  number  of 
significant  digits 
displayed  in  numerical 
output . 

ol 

3.14 

Printing  Width 

Value  is  the  number 
of  columns  used  in 
printing  across  the 
page/ screen  on  a  terminal. 

□P;7-e-10 

1  9 

1  2  3  4  5 

6  7  8  9 

UCT 

Comparison 

Tolerance 

Value  is  the  number  to 
which  the  difference  of 
two  numbers  is  compared 
in  order  to  judge  if 
they  are  equal. 

□  Cr-e.  01 

3 . 14  =  01 

1 

DLX 

Latent 

Expression 

Value  is  vector  of  character! 
executed  immediately  (using 
1)  upon  loading  a  workspace. 

ULX^'  '  'HI'.'  '  ' 
)SAVE  MY  WORK 
)L0AD  MY  WORK 

HIl 

URL 

Random  Link 

Value  is  used  by  ?  to 
generate  random  numbers . 

□i?L^16  8  07 

?1  0 

2 

UAI 

Accounting 

Information 

Values  are:  identification  # 
computer  time,  connect  time, 
keying  time  (milliseconds) . 

UAI 

123456  25  689200  8716 

ULC 

Line  Counter 

Values  are  statement  numbers 
of  programs  being  executed 
(esp.  suspended  programs) . 

ULC 

18 

UTS 

Time  Stamp 

Values  are:  year,  month, day, 
hour,  minute,  second,  and 
millisecond  of  current  time. 

UTS 

1977  12  24  23  59  59  9 

UTT 

Terminal  Type 

Value  is :  1  -  selectric;  2  - 
PTTC/BCD;  3  -  1050;  4  -  3270 

UTT 

1 

UUL 

User  Load 

Value  is  the  numbers  of 
users  currently  on  the 
(time- sharing)  system. 

URL 

23 

WA 

Working  Area 

Value  is  the  number  of 
bytes  of  storage  space 
remaining  in  the  current 
active  workspace. 

UWA 

32000 

T 
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LIST  OF  SYSTEM  FUNCTIONS 

A  "system  function"  is  a  special  function  which  affects  how  the 
computing  system  performs  and  which  may  be  executed  in  APL  expressions. 


NOTATION 

NAME 

DEFINITION 

EXAMPLE 

UCR 

Canonical 

Representation 

Result  is  literal  matrix 
with  rows  of  expressions 
from  each  line  in  a  defined 
program,  given  as  a  (literal), 
(literal) 

UCR  'AVERAGE' 
Z^AVERAGE  N 

Z^{ +/N)iQN 

UFX 

Fix 

Result  is  defined  program 
with  expressions  on  each 
line  from  rows  of  a 
(literal  matrix). 

QFZ  (literal  matrix) 

UFX  2  11  p 

'Z ^AVERAGE  N 
Z^i+/N)ipN  ' 

UEX 

Expunge 

Result  is  erasure  of 
program  or  local  variable 
given  as  (literal)  name. 

UEX  (literal) 

UEX  ' A  VERA GE ' 

1 

URL 

Name  List 

Result  is  vector  list  of 
first  (n)  names  of  labels 
(1),  variables  (2),  or 
programs  (3) : 

(n)  UEL  (1,2,  or  3) 
or  all  names: 

UEL  (1,2,  or  3) 

1  D/l/L  3 

AVERAGE 

or 

AVERAGE 

UEC 

Name  Class 

Result  is  0  if  name  is 
unused,  1  if  used  as  a 
label,  2  as  a  variable,  3 
as  a  program,  4  other. 

UEC  (name) 

UEC  'AVERAGE' 

3 

UDL 

Delay 

Postpone  execution  a 
specified  number  of 
(seconds) . 

UDL  (seconds) 

UDL  6  0 
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Appendix 


ANSWERS 
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U-PROGRAM  1 


**************** 

Page  2 

^WITH  SOME  FOR  YOU  TO  DO' 
WITH  SOME  FOR  YOU  TO  DO 

4  +  8 

12 

7-3 

4 


5  X  20 


100 


100  4  4 


25 


**************** 

Pages 


2.5  +  7.1 


9.6 


4-7 


3 


3.0  X  5 


15 


100  +  3 
33.33333333 

**************** 

Page  4 

A  -  B 
3 


A  X  B 

130 


Pages 

COUNTER 

4 

COUNTER 

5 

YEAR 

2001 

**★**★★*★★★***** 

Pages 

SET 

2  3  5  7 

SET  -  1 
12  4  6 

SET  X  2 
4  6  10  14 

**★★*★★*★***+*** 

Page? 

SET  +  SIX 
8  9  11  13  17 

SET  .  6 

2  3  5  7  11  6 

*****★**+★★★★*** 

Page  8 

7  X  y 

8  0  5  35  33 

y  X  7 

8  0  5  35  33 


7  ,  W 

2  3  5  7  11  4  0  1 

y.  7 

40153235 

Pages 

D  ,  D  .  D  ,  D 


D,  E  ,  s  ,  I  ,  G  . 
*AA* AOOAO*A*A 


**************** 

Page  10 

A  ^  L  ,  A 
ABRACADABRA 

S  ,  H  ,  0  ,  T 
CURSE  YOU,  RED  BARON  III 

**************** 

Page  11 

8  =  11 


0 


12  =  12 


1 

**************** 

Page  12 

7  <  5 

10  110  10 

7^5 

1111110 


5  3 


7  11 


N  .  5 
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V  >  5 


12  L  8 


T  ,  5 


0  0  0  0  0  0  1 


3,2  6  4  2 


0  10  0  10  1 


8  L  12 


Page  13 


2  2  6  4  1 


Q  L  P 


2  2  6  4  1 


3  4  8  5  2 


Page  16 


T'  'L' 


3  I  9  10  11 


0  12 


'S»  =  'ABBABA' 


10  0  10  1 


4  I  4  5  6  7  8  9  10  11  12 


012301230 


T  r  5 


'B'  =  'ABBABA' 


0  110  10 


5|  6~4  20246 


4  1  3  0  2  4  1 


r  L  s 


3.2  2 


Page  14 


Page  18 -Problems 


T  1  S 


0.8  4 


10  r  8 


12  r  8 


8  r  12 


Page  15 


7.2  4 


T  +  5 


0.8  8 


12.8  12 


4  L  8 


0.8  3 
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U-PROGRAM  2 


Page  20 

AREA 

THE  AREA  IS 
81 

Page  21 

AREA 

THE  AREAS  ARE 
9  16  25  64 

Page  22 

BASEBALL 

THIS  PROGRAM  COMPUTES  BATTIHG  AVERAGE. 
0.315 

*★*★****★★*★**★* 

Page  23 

A 

42 

**************** 

Page  24 

TRIANGLE 
2  8  18  32  50 

Page  25 

I  5 

1  2  3  4  5 

i3 

12  3 


1  1 

DOM AIR  ERROR 

i”! 
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absolute  value  function,  68 

AB  program,  68 

ABS  program,  68 

ABSOLUTE  VALUE  program,  68 

adding  (lines  to  a  program),  24 

addition  function,  2 

and  function,  48 

and-reduction,  50 

answers  (to  exercises),  218-238 

APL,  Preface 

APL/360,  About  APL  Systems,  187 
APL  Press,  Preface 

applications  (of  functions),  77-96,  97-118 

arc-trigonometric  functions,  173 

ARCCOSH  program,  173 

ARCCOSINE  program,  173 

ARCSINE  program,  173 

ARCSINH  program,  173 

ARCTANGENT  program,  173 

ARCTANH  program,  173 

ARCTRIG4  program,  173 

AREA  program,  20 

arithmetic  drill-and-practice,  102 

arithmetic  functions,  2,  164 

array  functions,  139-162 

arrays,  119-138 

assignment  command,  4 

ATTN  (attention)  key,  56,  84 

AVERAGE  program,  31 

axis  (of  reversal),  140 


BASEBALL  program,  22 
base  (of  a  logarithm),  169 
base  value  function,  179 
bogglers,  193-198 
brackets,  see  indexing 
branch  to  0  (stop  a  program),  67 
branching,  47-75 
branching  commands,  56,  114 


catenation  function,  6,  9,  156 
ceiling  function,  71 
CEILING  program,  70 
chaining,  see  catenation  function 
challenge  (exercises),  16,  32,  42,  49,  69, 
70,  72,  90,  99,  113,  128,  142,  143, 
150 

changing  (lines  in  a  program),  21 
character  editing,  see  line  editing 
circular  functions,  170 
coefficients,  161 
colon,  104 

combinations  function,  178 


command  execution  mode,  1-18 
commands  (summary),  207,  213 
compression  function,  52,  131 
conditional  branching,  58 
conformable  (matrices),  153 
COSH  program,  172 
cosine  function,  171 
COSINE  program,  172 
counters,  5,  58 


data,  17 

data  representation,  2 
data  structures,  133 
deal  function,  88 

decimal  number  representation,  3 
DECODE  program,  185 
definition  error,  175 
DEGREES  program,  174 
del,  20 

deleting  (lines  in  a  program),  61 

diagonal  (of  a  matrix),  146 

dimension  (of  an  array),  133,  134 

displaying  (a  program),  24 

division  function,  2 

domain  error,  66,  74,  178 

DRILL  program,  102 

drill-and-practice,  102,  135 

drop  function,  86,  132 

dyadic  scalar  functions  (summary),  200 

dyadic  functions,  25 

dyadic  program,  32,  60 


e,  167 

editing  (a  program),  21,  24,  57,  59-62, 
104 

summary,  212 

element-by-element,  see  parallel 
processing 
elements,  6,  120 
eliding  (characters),  104 
E  notation,  59 
ENCODE  program,  185 
endless  loop,  56,  84,  103 
equals  function,  1 1 
ERASE  command,  32,  175 
error  reports,  3,  4,  27,  31,  32,  66,  68,  81, 
99,  110,  148,  175,  178 
error  reports  (summary),  211 
evaluation  (of  expressions),  30,  35-45 
execution  (of  a  program),  20 
expansion  function,  189 
experiments,  14 

explicit  results  (programs  with),  62,  68 


exponential  function,  167 
exponentiation,  see  power  function 
expressions,  17 
execute  function,  186 


factorial  function,  178 
FAC  program,  177 
floor  function,  71 
FLOOR  program,  70 
format  function,  186 
functions,  17,  200-205 
see  also  specific  functions 
function  definition  mode,  33 
functions  on  arrays,  125 


games,  79,  89,  96,  114 
generalized  reduction,  39 
global  (names),  33 
go  to  (a  line  In  a  program),  56 
grade-down  function,  92 
grade-up  function,  91 
greater-than  function,  12 
greater-than-or-equal  function,  12 


header  editing,  60 


identity  function,  164 

incrementing,  58,  81 

index-of  function,  93 

INDEX  ERROR,  26,  27 

index  generator,  see  iota  function 

index  origin,  95,  214 

Indexing,  26 

initialization,  58,  81 

inner  product,  151 

input,  98,  100 

inserting  (lines  in  a  program),  57 
interactive  (programs),  97-118 
iota  function,  25 
iteration,  56 

Iverson,  Kenneth  E.,  Preface,  137 


keyboard,  Frontispiece,  100 


lamination  function,  158 
Last-one-loses  (game),  114 
least  squares  regression,  162 
LENGTH  ERROR,  110,  148 
less-than  function,  12 


INDEX 
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less-than-or-equal  function,  12 

line  editing,  104 

line  labels,  104,  114 

lines  (in  a  program),  20 

literal  data,  2,  100 

local  (names),  63,  81 

logarithm  functions,  168,  169 

logical  data,  48 

logical  functions,  48 

LOL  program,  114 

loop,  56 

LSORT  program,  94 


main  program,  114 
mathematical  model,  116 
matrices,  121,  133,  148 
matrix,  121,  133,  148 
matrix  divide  function,  161 
matrix  inverse  function,  160 
matrix  product,  153 
MAX  program,  75 
maximum  function,  14 
maximum-reduction,  40 
MDRILL  program,  137 
membership  function,  82 
MEMBER  program,  176 
MIN  program,  75 
minimum  function,  15 
minimum  reduction,  41 
minus-reduction,  41,  130 
miscellaneous  functions,  163-191 
mixed  functionfs  (summary),  203 
mixed  output,  106 

mode,  see  command  execution  mode, 
program  definition  mode 
model,  116 

monadic  scalar  functions  (summary),  202 
monadic  functions,  25 
monadic  program,  31 
multiple  assignments,  176 
multiplication  drill  program,  102 
multiplication  function,  2 
multiplication  table,  150 


names,  4 

natural  logarithm,  168 

negation  function,  164 

negative  number  representation,  3 

negative  symbol,  3 

Nim,  114 

not  function,  48 

null  vector,  25,  54,  64,  114,  134 
numerical  data,  2 
nyladic  (program),  33,  79 


operators,  see  reduction,  outer  product, 
inner  product,  scan 
operators  (summary),  206 
or  function,  48 
or-reduction,  50 
origin,  see  index  origin 


OUT,  101 

outer  product,  148 
output,  2,  72,  150 

overstrike  (symbols),  10,  91,  92,  100,  123, 
129,  131,  140-142,  156,  160,  168,  169 


palindrome,  140 

parallel  processing,  8,  125 

permutations,  90-92 

pi-times  function,  170 

ROW  program,  55 

POWER  program,  60 

power  function,  65 

POWOW  program,  56 

primitive  functions,  see  functions 

printing  precision,  3,  150,  170,  214 

problem-solving,  96,  138 

program,  20 

programming,  20 

program  definition  mode,  19-34 


quad  input,  98 
quad  output,  72 
quote-quad  input,  100 
quote  marks,  2 


radians,  171 
RADIANS  program,  175 
RANDOM  program,  135 
random  number  generator,  78 
RANDOM  WORDS  program,  81 
rank  (of  an  array),  134 
ravel  function,  124 
reassignment,  5 
reciprocal  function,  166 
recursion,  176 
reduction,  30,  44,  129 
relational  functions,  1 1 
renumbering  (lines  in  a  program),  57 
replacing,  see  changing  lines  in  a 
program 

representation  function,  182 
residue  function,  16 
RES  program,  69 
restructuring  function,  120 
resuming  (execution  of  a  suspended 
program),  111 
reversal  function,  140 
reviews,  17,  33,  44,  73,  96,  118,  138,  162, 
191 

rho,  26,  28,  120,  134 
right-to-left  (evaluation  of  expressions), 
36,  41 

ROLL  program,  79 
rotation  function,  142 
ROUND  program,  72 
rounding  off  (numbers),  72,  75 
rows,  121 

row-major  order,  122 

rules  (for  evaluating  expressions),  35 

RW  program,  84 


scalar,  2,  133 
scan  operator,  188 
semicolon,  106 

shared  variable,  see  system  variable 

significant  digits,  3,  150 

signum  function,  165 

sine  function,  171 

SINE  program,  172 

SINH  program,  172 

simulations,  64,  67,  69,  70,  75,  79,  89, 
116,  165 

simultaneous  linear  equations,  161 
size,  see  rho 
SORT  program,  91 
SPELLING  program,  136 
stacking,  see  lamination  function 
state  indicator,  110,  112 
statements  (expressions  in  a  program), 
20 

structure,  see  size 
subprograms,  84,  114 
subtraction  function,  2 
summary  (of  APL),  199-215 
sum-reduction,  30,  39,  129 
suspended  program,  110,  111 
syntax,  3  ' 

SYNTAX  ERROR,  3,  31,  32,  68,  99 
system  command,  32,  175 
summary,  213 

system  functions  (summary),  215 
system  variable,  95,  150,  170 
summary,  214 


table,  see  matrix 
take  function,  85,  132 
tangent  function,  171 
TANGENT  program,  172 
TANK  program,  172 
TEMPER  program,  116 
three-array,  133 
times-reduction,  40,  130,  177 
trace  command,  64 
tracing  (a  program),  64,  69,  75,  176 
transpose  function,  141,  145 
TRI  program,  87 
TRIANGLE  program,  23 
TRIGO  program,  172 
TRIG4  program,  172 
trigonometric  functions,  see  circular 
functions 
truth  tables,  184 
TRUTH  program,  184 


unconditional  branching,  56 


value,  4,  23 

VALUE  ERROR,  4,  81,  99,  101 
variable,  see  names 
vectors,  6,  133 

VOWELCHECKER  program,  83 
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APL:  An  Introduction 

Howard  A.  Peelle 

This  combination  workbook/textbook  offers  a  probiz.ii-solving  approach  to 
iearning  computer  programming  in  APL.  It  is  self-instructional,  that  is,  you 
can  teach  yourself  the  APL  language  by  using  this  book  —  with  or  without  a 
computer. 

Each  chapter  opens  with  an  explanation  of  APL  problem-solving  tools, 
followed  by  numerous  examples  of  APL  expressions.  The  reader  is  then 
asked  to  solve  selected  exercises;  these  exercises  can  be  done  with  or 
without  a  computer.  Answers  are  provided  in  the  appendix. 

The  book  is  written  in  an  informal  style,  with  handwritten  annotations 
alongside  examples  of  APL  expressions  that  serve  as  supplementary  ex¬ 
planation.  Each  chapter  ends  with  a  review,  and  summary  tables  of  all 
expressions  appear  at  the  end  of  the  text  for  quick  reference. 

Other  Books  of  Interest . . . 

BASIC  BASIC:  An  Introduction  to  Computer  Programming 
in  BASIC  Language,  Second  Edition 

and 

ADVANCED  BASIC:  Applications  and  Problems 

Both  by  James  S.  Coan 

Two  books  that  give  you  the  complete  picture  of  the  BASIC  language.  One 
introduces  the  language;  the  other  offers  advanced  techniques  and  applica¬ 
tions.  BASIC  BASIC,  #5106-9,  paper,  #5107-7,  cloth,  288  pages;  ADVANCED 
BASIC,  #5855-1,  paper,  #5856-X,  cloth,  192  pages 

BASIC  FROM  THE  GROUND  UP 

David  E.  Simon 

An  introduction  to  BASIC  for  the  novice,  covering  all  the  features  of  BASIC 
as  well  as  explaining  the  inside  workings  of  the  computer.  Includes  exercises 
and  worked-out  problems.  #51 17-4/Text,  #5760-1 /Trade,  paper,  232  pages 

PROGRAMMING  PROVERBS 

Henry  F.  Ledgard 

Offers  short  rules  and  guidelines  for  writing  more  accurate,  error-free  pro¬ 
grams.  Contains  standards  for  and  programs  in  PL/1,  ALGOL,  BASIC,  and 
several  other  languages.  “This  gem  of  practical  guidance  is  much  needed 
and  long  overdue.”  American  Association  for  the  Advancement  of  Science. 
#5522-6,  paper,  144  pages 
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7620  Dashwood  Houston,  TX  77036 
(713)  772-5257 


